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1 ABSTRACT 

This program is the micro diaanostic monitor that is used 
during VAX-n/730 Customer Runable Diagnostics AUTO mode. It is 
similar to the standard Micmon, except that contained within the 
program is a pre-determined string of commands to execute 
particular micro d'aqnostic tests. This program also contains 
special progress ana error messages that are displayed to the CRD 
user. 

For further information about the program, and for complete 
documentation concering CRD AUTO mode, consult the ENSAB.DOC 
documentation tile. 



2 MAINTENANCE HISTORY 



DATE 

6-JUL-82 
27-AUG-82 
?3-MAY-83 

16-JAN-84 



VERSION 

01.00 

OMO 

oi,;?o 



.-* 1 



30 
'.0 



II Version 
LCN and 



2.0 
KERNEL 



DESCRIPTION 
Initial release. 
Changes for IDC Part 
Changes to support 
systems. 

changes to support LCN 11/7?5 name. 
Char.'3es for systems having TSU05 as drive 1 
Changes to the Title, It will now be known 
microdiagnostic section. 



11/730 



as 



! 

jZZ-EMICAB-1.5 

ifNKAB.EXE 



Module ^ame 



.MAIN. 



Psect Name 
MICMON 



Symbol 



CNT 



APT 

APT PASS 
CC 3SD0R 
ClEAR CPU ATT 

i.ntlc"typFd 

COMPARE 
CONTINUE 
CON ADD DAT 
CON begTn ^EST 
CON-ERROR" 

con'err num 
con"exp"add 
(.on"exp"dat 
con-moo^oat 
con"."sk"dat 

con"rec"ad0 

con'rec'dat 

CR " " 
rRLF 

csr shift 

csr^value 
datZo 

DATA^: 
DATA? 

DATA3 
DATA SHifT 

i)ECR"WORD 

doloDp 

EOS FIG 
ERROR CON 
aAG5" 



Mao 



Ident 




Module Name 
.MAIN. 



Value 

0000AC38-R 

0C00AC18-R 

OOOOOOFE 

0000^D2F-R 

0000AC39-R 

OOOO^CCF-R 

0000AC3A-r; 

0000AC3B-R 

OOCOAD23-R 

0000AD20-R 

OOOO^CSF-R 

OOOO^C^^-R 

OOOOACAO-R 

0000AC46-R 

0000ACA8-R 

00004 C 5 3"R 

0000AC4r-R 

00000000 

OOOOACDE-R 

00004C8?-R 

0000AC88-R 

0000<!iCA9-R 

00004 CAA-R 

00004CA8-R 

OOOOACAC-R 

00004CA8-R 

00004035-R 

00004C55-R 

00004C56-R 

0000AC57-R 

00a04C5A-R 

00004C58-R 



E 1 
15-JUN-1984 12:37 



Fuhe 1 Frame El 

VAX-11 Linker V3A-18 



Sequence 4 



Page 



^- — ——.-._--■—.- — ---- — + 

: Object Module Synopsis ! 

+ «.™™-.— — — .^-+ 

Bytes File Creation Date Creator 

""8189 DR80:[BALL.ENKA8.RELEASE]ENKA8.08J;1 15-JUN-198A 12:22 VAX-11 Macro V03-01 

: Program Section Synopsis I 
+ + 



Base 



End 



Length 



A I. i gn 



Attributes 



OOOOACOO 000068FC 00001FFD ( 

OOOOACOO 00006BFC 00001FFD ( 

+««--,— .™. — -, + 

! Symbols By Name I 

+_- -™«--— + 

Symbol Volue 

GCVECT O0O0A129 

HEX 3 00000003 

HEX'BUF 00004C58-P 

1NC"W0RD 0000AD08-R 

ID OPC 0000AD17-R 

LF" OOOOOOOA 

LOAD CSR 00004CF0-R 

LOAD UPC 0000ACF3-R 

MAKE"XD 0000AD08-R 

MCPU'A 0000AD40-R 

M;CR0 step CPU OOO0AD38-R 

MOVER" " 0000ACD2-R 

MOVER 3 0000AD1A-R 

MOVER'A 00004D11-R 

MIK ERROR OOOOADID-R 

MWCS A 0000AD3B-R 

NA E5?P REC 0OO0AC5F-R 

NA"0ThFr 0000AC60-R 

NOP CSR OOOOACEA-R 

N0P"INST 00004C72-R 

OS 5dD 0000007C 

OvFRLAV ram 0000AC03-R 

0V£RLAY"WCS 0000ACC6-R 

PARITY 3UMP 00004C61-R 

PARITY'ON 00004C6A-R 

PERFORM CSR 00004CED-R 

POWER BRANCH 0000AC65-R 

PRINT" 0000ACD5-R 

PRINT HEX 00004CD8-R 

PRINT"hEX 1 OOOOADU-R 

pRINT"STRTNG OOOOADOt-R 

READ PATA 32 OOOOACFC-R 



8189.) BYTE NOPIC,USR,CON,REL,LCL,NOSHR, EXE, RD, WRT,NOVEC 
8189J BYTt 



Symbol 

READ LS 
REAO"WCS 

SET For cont 

SHIFTER' 
SHIPTER1 
SHIFT.L 2901 
SHIFT PflT 
SHIFTER 2901 

SKIP Test 

SPACf 
UPC VALUE 
WCS ADDRESS 
WCS^SAD PARITY 
WCS REAt$ 
WCS SHIFT 
WCS VALUE 
WCS VAL SHIFT 
WCS^WRITE 
WRITE DATA 32 
WRITE"LS " 
WRITE TAB PNT 
WRITE"WCS" 

XD ad5rs 
X Clr page 

X CLR WRO 
X COM WRO 
X MOV WRWR 
X'ROT^'L 
XlSET"PAGE 
X SHIFT L 
X"SHIFT"R 



Value 

0000AD02-R 
00004CE7-R 
0000AD2C-R 
0000ACE1-R 
00004D32-R 
0000ACF6-R 
00004 C68-R 
00004CF9-R 
0000^C6A-R 
00004 CD8-R 
00004CC2-R 
00004C6C-R 
00004C6E-R 
00004D26-R 
00004C6B-R 
00004CB4-R 
00004CB3-R 
00004D29-R 
00004CFF-R 
00004D05-R 
00004 C6F-R 
00004 CEA-R 
00004C71-R 
00004C7D-R 
00004CA-:-R 
00004CA5-R 
00004C9E-R 
00004 C79-R 
00004C81-R 
00004C75-R 
00004C85-R 



Symbol 



Value 



-^ 



ms i 
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Symbc 



Value 



Symbol 



Key for soecial characters above: 

• - Undefined 

U "Universal 

R - Relocatable 

; X - External 
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Value 



Symbol 



Value 



Symbol 



Value 



-^ 



|ZZ-EN^AB"1.5 Map 
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+ ^---+ 

I Image Synopsis 1 



[Virtual m&mory allocated: 
iHack size: 

jimage binary virtual block Umits; 
ima ;e name and identification; 
Ngmber of Hles: 
Number of modules: 
i-iurnber ct program sections: 
Number of global symbols* 
Number of image sections: 
Image type: 
Map format: 
Estimated map length; 



Performance Indicators 



Command processing: 
Pass 1: 

Allocation/Relocation: 
Pjss 2: 

Map data afte:- object module synopsis: 
Symbol table output: 
Total run values: 



OOOOACOO 00006BFF 00002000 (8192. bytes, 16. pages) 

0. pages 

1. 16. ( 16. blocks) 
ENKAB 

1. 

1. 

2. 
95. 

1. 
SYSTEM. 

DEFAULT in file DRBO: [BALL, ENKAB. RELEASE]ENKAB.MAP;2 
U. blocks 



: Link Run Statistics I 

Page Faults CPU Time 

33 00:00:00. U 

6 00:00:00.13 

16 00:00:02, Oi 

9 00:00:00.26 

00:00:00.01 

166 00:00:02.76 



Elapsed Time 

oolooloo^ii" 

00:00:00.65 
00:00:00.33 
00:00:06.68 
00:00:00.88 
00:00:00.20 
00:00:09.06 



Using a working set limited to 500 pages c.nd 30 pages of data storage (excluding image) 

Total number object records read (both passes): 132 

of which were in libraries and ? were 0E8U6 data records containing 39 bytes 

Number of modules extracted explicitly = 

with extracted to resolve undefined symbols 

tifcrary searches were for symbols not in the library searched 

A total of global synbol table records was written 

LlN/SYST-SiXAC00/MAP=FNKAB/EXF=ENKA8.EXE EN'UB.OBJ 



|z7"enkab-1,5 .main 
Lmain, 
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3 

i* 

5 
6 
7 
8 
9 
10 

11 

12 
13 

u 

15 
16 
17 
18 
19 
20 
21 
22 
23 
2A 
25 
26 
27 
28 
29 
30 
31 
32 
33 
3A 
35 
36 
37 

38 
39 
AO 
A1 
A2 
43 
44 
45 
46 
47 

48 

49 
50 

51 

5? 
53 

59 

60 

61 

62 

63 
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.TITLE "ENKA8 8085 based micro-mom' tor for NEBULA CRD Rev 1.5" 

COPYRIGHT (c) 1982 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARO, 
MASSACHUSETTS. ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TEhMS OF SUCH LICENSE AND WITH THE INCLUSION 
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES THEREOF 
MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON. NO 
TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY TRANSFERRED. 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE, AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 

DIGITAL ASSUMES NO RESPONSISILI TY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL, 



1 
(1) 



+ + 
FACILITY: 

ABSTRACT: 



ENVIRONMENT; 
AUTHOR: 
MODIFIED) BY: 



VAX-11/730 CUSTOMER RUNABLE MICRO-DIAGNOSTIC MONITOR 

This 8085 based program monitors and controls the execution 
of both 8085 based micro-diagnostics and WCS based micro*- 
diagnostics in the Customer fiunable Diagnostics environment. 



Standalone 
David Mayo 



6-JUL-82 



David Mayo 27-AUG-82 

Changes for iDC KarC II version 2.0 

Peter Green 3-MAR-83 

Changes for LCN and Kernel systems. 



Peter Green 5-JUL-83 

Changes for LCN syntax. 



VERSION 1.0 
Version 1 ,1 
VERSION 1.2 

VERSION 1.3 



Darryl L. Ball 28-N0V-83 VERSION 1, A 

Changes for 1S05 system configurations. 

Darryl L. Ball 14"Jun-84 VERSION 1.5 
Added a new header for distinction between the micro 
and macro portions of CRD. 
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96 
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97 


0000 


98 
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99 


0000 
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0000 
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0000 
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0000 
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0000 
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oooc 
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0000 
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107 


0000 
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0000 
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0000 
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0000 
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in 
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114 
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ns 
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120 



;8085 SOURCE CODE CRD MICRO DIAGNOSTIC MONITOR 



4 4*****.. 4** ********** ft ******* tk*Aft «**<(*«*« A*ft«*ft*1t*4t«*1k«*4l«tW*l«1klk1k**1t%1k1^««4«r 

NOTE: THE LAST ADDRESS OF THIS PROGRAM MUST NOT EXCEED 6FFF. THE 
8085 MICRO-DIAGNOSTIC OVERLAYS LOAD AT ADD^.ESS 7000 HEX! I! 

******** 4«ft****************fl*H***********«*****************A******«4******* 
ll****«****ll**4*«*«*«******************************************ft***«4******* 

LIKE IHE STANDARD MICRO-DIAGNOSTIC MONITOR. THIS PROGRAM WAS DESIGNED 
USING PROGRAM DESIGN LANGUAGE (PDD, SIKCE PDL IS A HIGH LEVEL LANGUAGE 
THE DECISION TO WRITE THIS MONITOR USING MACROS WAS MADE. THE MACROS USE 
MANY OF THE REGISTERS, SO USE OF REGISTERS FOR PASSING PARAMETERS IS 
DANGEROUS AT BEST, ALSO THERE ARE DIFFERENCES BETWEEN THE POL AND THE 
PROGRAM, PDL IS MEANT AS A DESIGNERS LANGUAGE AND IS USED TO PASS 
INFORMATION TO THE IMPLIMENTOR. THE USE OF THE MACROS HELPS KEEP THE TWO 
SIMILAR. BUT IMPLEMENTATION IN A SLIGHTLY DIFFERENT MANNER IS SOMETIMES 
NECESSARY. 

• ««*«*«*ft«<i**4«*4««4****'*il[ltft*****4*«*44****************H*****4****««***4*«* 
*************** *4*4*ft*********'^**ftft**«kft6ft*«*4****1t*ft******ft«**« **««****«** 

IMPLEMENTATION NOTES: 

THIS PROGRAM IS CALLED "CRD MICMON" (CUSTOMER RUNABLE OiAGNOSTKS 
MICRO r-»NJTOR). CRD MICMON IS USED TO RUN MICRO DIAGNOSTICS FOR THE 
MICRO Dj. GNOSTICS. CRD MICMON RUNS TWO DIFFERENT FORMS OF DIAGNOSTICS: 

A) DIAGNOSTICS WRITTEN IN CPU MICRO CODE. 

B) DIAGNOSTICS WRITTEN IN 8085 CODE. 



i?2"pNKAB-1,5 .MAIN 
UMAIM, 



0000 131 

0000 122 

0000 123 

0000 12A 

0000 125 

0000 126 

0000 12^ 

OOOC 12b 

0000 129 

0000 130 

0000 131 

0000 132 

0000 133 

0000 13A 

0000 135 

0000 136 

0000 137 

0000 138 

0000 139 

0000 UO 

0000 U1 

0000 M^l 

0000 K3 

0000 U4 

0000 U5 

0000 146 

0000 M^7 

0000 U8 

00000000 '49 

0000 i:o 

OOOOCOOG JOOO 151 

0000 152 

0000 153 

0000 154 

0000 155 
C3 0000 

nP2' 0001 

0003 156 

0003 157 

0003 158 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 
00000000 0003 
00000002 0003 
00000004 0003 
00000006 J005 
C0000006 0003 

0003 

0003 

0005 
OOOOODOl 0003 
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CRD MJCMON PASSES CONTROL TO 8085 DIAGNOS" ICS BY CALLING THEM 
AS U THEY WERE SUBROUTINES OF THE MICRO MONITOR. 

CRD MJCMON CAUSES CPU MICRO CODE DIAGNOSTICS TO BE EXECUTED. THIS IS 
DONE BY STARTING THE CPU AT SPECIFIC ADDRESSES. (THESE VARIOUS ADDRESSES 
ARE CONTAINED IN THE CONSTANTS LISTED IN THE iONSTANT SECTION) THE CPU 
MICRO DIAGNOSTICS R'JN CONCURRENT TO THE 8085. THE CPU MICRO CODED 
DIAGNOSTIC COMMUNICATlS WITH MICMON BY SETTING THE CPU ATTENTION 
SIGNAL (HARDWARE) AND CONVEYING IT'S MESSAGE THROUGH THE USE OF A 
32 BIT COMMAND AND STATUS WORD, 

CRD MICMON ISSUES A SET OF PRE-DETERMINED COMMANDS AUTOMATICALLY, 
RATHER THAN TAKING I-VPUT FROM THE CONSOLE TERMINAL. 

VARIABLE NAMES ENDING IH .A ARE ASCII TEXT 

VARIABLE NAMES ENDING IN .R ARE GLOBAL SUBROUTINES 

; DATA SECTION 

* ************ **«*t*4«tk«*«*ftAft**i^i^«ilr«*lir*lkik«4«***«**lki«*lk*««*««r«**«*1k«*l^*%*««** 
« 

.PSECT MICMON 

HEAD = ;CALCULATE NO OFFSET IN ASSEMBLY 

;ENTRY POINT TO THE PROGRAM IS FIRST ADDRESS OF OVERLAY 

JMP START UP 
.BVTE ^0303 
.WORD <START uP-HEAD> 



EQUATE 
.LIST ME 

8085 REGISTER DEFINITIONS 



;REGISTER EQUATE MACRO 



REGISTER PAIRS 

B 

D 

H = 

$SP 

$r':w 

NON REGISTER PAIRS 
C 



lZZ-ENKAB-1.5 .M^-.N. 
L^AIN. 



0000C003 
00000005 
000C0006 
00000007 



00000000 

00000001 
00000001 

00000002 
00000002 

00000003 
00000003 

COOOOOOA 
0000000^ 

00000005 

00000006 

00000007 
00000007 

00000008 
00000009 
OOOOOOOA 

0000001 c 
0000001 D 

00000020 
00000021 



0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

Ov03 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

OC-3 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 



L 
M 
A 
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159 

160 

161 

162 

163 

16A 

165 

166 

167 

168 

169 

170 

171 

172 

173 

17A 

175 

176 

177 

^?L 

179 

180 

181 

182 

183 

18^ 

185 

186 

107 

188 
189 
190 
191 
192 
193 
19A 
195 
196 

107 

r98 



8085 assembly language defjnjtjon macro's 

.mcall mov,mvi,lxj,stax,l[)ax,sta,lda,shld,lhlo,xfhg 

•mcall push, pop, xthl,sphl,jmp,jc,jnc,j2,jnz,jp.jm,jpe, jpg, pchl 

.mcall call,cc,cnc,c7,cnz,cp,cm,cpe,cp0 

.mcall ret,rc,rnc,rz,hnz,rp,rm,rpe,rpo,fist 

.MCAlL inr,dcr,inx,dcx,add,aoc,adlaci,oad,sub,sbb,sui,sbi 

.MCALL ANA,XRA,0RA,CMP,ADI,XRJ,0RJ,CPI 

.MCALL RLC,RRC,RAL,RAR,CMA,STC,CMC,N0P,HLT,RJM,SJM 

.MCALL IN, OUT 

THE FOLLOWING BLOCK OF MACROS DEFINE THE HARDWARE INTERFACE TO 
THE 8085 SYSTEM, 



UPCUA 

HJSC2 
BOOTF 

DCLO 
HLTFLG 

READJI 
ALLOWP 

READJ2 
APTFLG 

AUTO 

REMOTE 

0KV15 
BOOTEN 

WCSBO 
WCS81 
WCSB2 

ITDB 
ITCSR 

CLRCLK 
SETCLK 



=<*X0O> 



=<*xoi> 

=<*X01> 


=<*X02> 
=<*X02> 


=<*X03> 
=<*X03> 


=<'*X0A> 
=<*XO'i> 


=<*X05> 


=<'^X06> 


=<*X07> 
=<*X07> 


=<*X08> 

r<*X09> 

=<*X0A> 


=<*X1C> 
= <'^X1D> 


=<*X20> 
=<*X21> 



;(R0) UPC BIT U ASSERTED HIGH <MSB> 



(RO) BOOT FLAG. ASSERTED LOW. <lSB> 

(RO) DC LOW FLAG ASSERTED HIGH<MSB> 
(RO) HALT FLAG ASSERTED LOW <LSB> 

(RO) JUMPER J1 FLAG ASS. HIGH <MSB> 
no) ENABLE CONTROL P ASS LOW <LSB> 

(RO) BIT 07 EQUALS J2 <MS8> 
(RO) APT PRESENT FLAG <LSB> 

(RO) AUTO TEST FLAG ASS LOW <lSB> 

(RO) REMOTE FLAG ASS LOW <LSB> 

(RO) 15 VOLTS OK FLAG ASS LOW <MSB> 
(RO) BOOT ENABLE FLAG ASS LOW <LSB> 

(WO) WCS WRITE DATA REG, BYTE 
(WO) WCS WRITE DATA REG, BYTE 1 
(WO) WCS WRITE DATA REG, BYTE 2 

(R/W) TIMER DATA REGISTER 
(R/W) TIMER STATUS REGISTER 

(WO) CL'^.AR CPU CLOCK RUN 
(WO) SET CPU CLOCK RUN 



!;:-FNKAB-1,5 .MAIN 

i.MAIN. 
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0003 


199 






00000022 


0003 


200 


CLRSS 


-<*X22> 


00000023 


0003 
0003 


201 

:o2 


SETSS 


=<*X25> 


0000002A 


0003 


203 


CLftCSK 


=<*X2A> 


00000025 


0003 
0003 


20A 
205 


SETCSK 


=<*X25> 


00000026 


0003 


206 


CLPUPK 


=<*X26> 


00000027 


0003 
0003 


207 
208 


SETUPk 


-<''t21> 


00000028 


0003 


209 


SETMCJ 


=<''X28> 


00000029 


0003 
0003 


210 
211 


CLRMCl 


=<'^X29> 


0000002A 


0003 


212 


SETMCK 


=<*X2A> 


0000002B 


0003 
0003 


213 

2U 


CLRMCK 


=<*X2B> 


0000002C 


0003 


215 


CLRTMR 


=<*X2C> 


OOOOOOPD 


0003 
0003 


216 
217 


SETTMR 


=<*X2D> 


0000002E 


0003 


218 


CLRBSY 


=<''X2E> 


0000003F 


0003 


219 SET6SY 


^<''n^> 




0003 


220 






00000030 


0003 


221 


SETDCL 


=<*X30> 


00000031 


0003 
0003 


222 
223 


CLRDCL 


=<*X31> 


00000032 


0003 


2*?A 


StTTACL 


=<r'^y32> 


00000033 


0003 
0003 


22S 
226 


CLRACL 


^ '33> 


000G003A 


0003 


in 


INJTL 


=<*X3A> 


00000035 


0003 
0003 


228 
229 


INITH 


=<*X55> 


00^,^036 


0003 


230 CLRWCK 


= <''X36> 


00000037 


0003 
0003 


231 
232 


SETWCK 


=<*X37> 


00000038 


0003 


233 


CLRCSR 


=<*X38> 


00000039 


0003 
0003 


2^A 

235 


SETCSR 


=<*X39> 


0000003C 


0003 


236 


CLRLIT 


=<*X3C> 


000OO03D 


0003 
0003 


237 

238 


SETLIT 


=<*X3D> 


OOOOOCAA 


0003 


239 


TUD8 


=<*XAA> 


O0OOOOA5 


0003 


2A0 


TUSR 


=<*XA5> 


O00OOOA6 


0003 
0003 
0003 
0003 


2A1 
2AA 


TUMODE 


= <'*XA6> 


O0OOOOA7 


0003 
0003 


2A5 
2A6 


ruCR 


=<*XA7> 


000000A8 


0003 


li^l 


TTDd 


= <nA8> 


00OOOOA9 


0003 


2A8 


TTSR 


-<*XA9> 


OOOOOOAA 


0003 
0005 
0003 
0003 


2^9 

250 
251 
252 


TTMOOE 


=<*XAA> 


000OOOA8 


0005 
0093 


253 
25A 


rrcR 


=<*X^8> 


00000080 


Of>o^ 


255 


READ 


s<'*X80> 



;(W0) CLEAR CLOCK SIN6I F STEP 
;(W0) SET CLOCK SINGLE S^L'^ 

;(W0) CLEAR CSR CLOCK 
;(W0) SET CSR CLOCK 

;(U0) CLEAR THE UPC CLOCK 
;(W0) SET THE UPC CLOCK 

;(W0) SET MEMORY CONTROL INIT 
;(W0) CLEAR MEMORY CONTROL INIT 

;(WD) SET MEMORY CONTROL CLOCK 
;(W0> CLEAR MEMORY CONTROL CLOCK 

;(W0) STOP TIMER 

;(W0) START TJMER COUNTING 

;(W0) CLEAR UNIBUS BUS BUSY 
;(W0) SET UNIBUS BUS BUSY 

;(W0) SET DC LOW 
;(W0) L'LtAR DC LOW 

;(W0) SET AC LOW 
;(W0) CLEAR AC LOW 

;(W0) CLEAR UNIBUS INH 
;(W0) SET UNIBUS INIT 

;{W0> CLEAR WCS WRITE CLOCK 
;(W0) SET WCS WRITE CLOCK 

;(W0) CLEAR CSR SERIAL INPUT 
;(W0) SET CSR SERIAL INPUT 

;(W0) CLEAR THE RUN LIGHT 
;(W0) SET THE RUN LIGHT 

;(R/W) TU-58 DATA BUFFER 

;(R0) TU-58 STATUS REGISTER 

;(R/W) TU-58 MODE REGISTER 1 ♦ 2 

;F1RST ACCESS GET MR1, SECOND GETS MR2 

;READING THE CR FORCES THE INTERNAL 

;POINTER BACK TO MR1 

;(R/w; TU-58 COMMAND REGISTER 

;(R/W) TERMINAL DATA BUFFER 

;(R0) TERMINAL STATUS REGISTER 

;(R/W) TERMINAL MOLE REGISTER 1 ♦ 2 

;FIRST ACCESS GET MR1, SECOND GETS MR2 

;READING THE CR FORCES THE INTERNAL 

/POINTER BACK TO MR1 

;(R/W) TERMINAL COMMAND REGISTER 

MRO) CONSOLE READ REGISTER 



tZZ-ENiCAB-1,5 ,MA1N 
i.MAlN. 



C0000082 

00000083 

00000084 

00000085 

00000086 

00000087 

OOOOOOAO 
000000A1 

OOOOOOA? 
000000A3 

OOOOOOAO 
000000/^"^ 

00OOO0A6 
000000A7 

000000^*8 
000000A9 



O0OOO0A8 
000000A9 

OOOOOOAA 
OOOOOOAB 

OOOOOOAC 
OOOOOOAO 

OOOOOOAE 
OOOOOOAF 

OOOOOOCC 

OOOOOOEC 



0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0005 

0003 

0003 

0003 

0005 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

COO 3 

0003 

0003 

0005 

0005 

0005 

0005 

0003 

0003 



256 
257 

258 
259 
260 
261 
262 
263 
26A 
265 
266 
267 
268 
269 
270 
271 

212 
271 
27i* 
275 
27(> 
277 

278 
279 
280 
281 
282 
283 
23A 
285 
286 
287 
288 
289 
290 
291 
292 
29!' 
29A 
295 
296 
297 

298 
299 

300 
301 
302 
305 
30A 
3J5 
306 
307 
308 
309 
310 
311 
512 



CPUACK 

CPATTN 

UPCU 

CSR07 

CSR15 

CSR23 

ENBPAR 
D I SPAR 

VSHIFT 
VNORML 

SETTJM 
CLRTIM 

EN8MEM 
DI5MEM 

SETACK 
CLRACK 



U-JLi<-198A Fkhe 1 Frame Ml Seguence 12 

U-JUN-1984 16:08:17 vAX-11 Macro V03-0T Page 

U-JUN-1984 15:49:51 DR80:CBALL.ENKA33EMKAB.MAC;5 



(RO) ACKNOWLEDGE FROM CPU <LSB> 

(RO) ATTENTION FROM CPU <LSB> 

(RO) UPC BIT U <LSB> 

(RO) C5R BIT 7 <LS8> 

(RO) CSR BIT 15 <LSB> 

(RO) CSR BIT 23 <LSB> 

(WO) ENABLE STALL ON PARITY ERROR 

(WO) DISABLE STALL ON PARITY ERROR 

(WO) SEi THE V-BUS TO SHIFT MODE 

(WO) SET THE V-BUS TO NORMAL MODE 

(WO) SET INTERVAL TIMER INTERRUPT 

(WO) CLEAR INTERVAL TIMER INTRPT. 

(WO) ENABLE MEMORY REFERENCES 

(WO) DISABLE MFMORY REFERENCES 

(WO) SET CONSOLE ACKNOWLEDGE 

(WO) CLEAR CONSOLE ACKNOWLEDGE 



6 
(1) 



=<*X82> 


=<*X85> 


=<*X8A> 


=<*X85> 


=<*X86> 


=<*X87> 


=<*XAO> 
=<*XA1> 


=<*XA2> 
=<*XA5> 


=<*XA4> 
=<*XA5> 


=<*XA6> 
=<*XA7> 


=<"XA8> 
=<*XA9> 



;NOTE: THE CONSOLE ACKNOWLEDGE SIGNAL IS ALSO USED AS THE UPC 
;SERIA». INPUT. WHEN USED THIS WAY THE SENSE IS INVERTED. TO SIMP.IFY 
;MATTERS THE NEXT TWO EQUATES ARE INCLUDED 



CLRUPC 
SETUPC 

SETATN 
CLRATN 

SETPFI 
CLRPH 

SETHLT 

CLRHLT 

WRITE 
■USRD 



=<*XA8> 
=<*XA9> 

=<*XAA> 
=<*XAB> 

=<*XAC> 
=<*XAD> 

=<*XAE> 
=<*XAF> 

=<*XCC> 

r<*XEC> 



(WO) CLEAR THE V-BUS SERIAL INPUT 

(WO) SET THE V-BUS SERIAL INPUT 

(WO) SET CONSOLE ATTENTION 

(WO) CLEAR CONSOLE ATTENTION 

(WO) SET POWER FAIL INTERRUPT 

(WO) CLEAR POWER FAIL INTERRUPT 

(WO) SET THE CONSOLE HALT BIT 

(WO) Clear the console halt bit 

(WO) the CONSOLE WRITE REGISTER 

(RO) Y-8US READ 



THE FOLLOWING EQUATES ARE USED AS PrIOGRAM CONSTANTS 

THIS IS DONE WHERE EVER POSSIBLE TO CONTROL THE USAGE OF THESE 

CONSTANTS -• SO THEY ARE DEFINED ONLY IN ONE PLACE — 



;,V!AIN, . 



.MAIN 



N 1 
U-JUN-198A Fiche 1 Frame Nl 

U-JUN-198^ 16:08:17 VAX-11 Macro 



000000 V 

000000^/; 
00000010 
00000080 
0000408? 
OOOOOOFE 
00C00008 
00000010 
00000020 
00000002 
OC000004 
00C00080 
0'jCO7003 

0000?')05 

OOOOOCOD 

000040 "D 

OOOO^O^E 

0000411 A 

0000002E 

00000040 

00000040 

00007000 

00000048 

OU000010 

000C4129 

00004123 

00004145 

00000001 

00000003 

0000000^ 

00000007 

00000008 

0000C010 

OOOOCOOD 

0000001 F 

00000020 

0^000021 

00000020 

00000C30 

0000003A 

0000003F 

00000040 
. n00041 
00000050 
0000007F 

00000080 
OOOOOOFD 
OOOOOOFF 

00C00080 
OOCC0008 
OOOCOOOA 
CC000005 
;?0000006 

■: 000000 7 

vjOOOOGf 



0003 
0003 
0003 
0003 
^^03 
0003 
0003 
0003 
0003 
0003 
0003 
O003 
0D03 
0003 
0003 
0003 
0003 
0003 
Ovui 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0003 
0005 
0003 
0003 
0003 
0003 
0003 
0003 
0003 

ooc: 

0003 
0003 
0003 
0003 
0003 
0003 
0003 
0005 
0003 
0003 
0003 
0003 
0005 

ooo: 

0003 
0005 
0003 

0003 
0005 
0005 
0005 



313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 

338 
339 

340 
341 
342 
343 
3'.4 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 

358 
359 
360 
361 
36? 
365 
36'. 
365 
566 
567 



ADDR 

APT PAR AM 

BAD"STATUS 

BEG"TST 

BYT^UM 

CC ADDR 

clEarpar err 

CONAfT " 

CONACK 

CONHLT 

CON LOOP 

CON'RAM 

CON"VER_ADD 



CR 

CRD FLAGS 

ctlPis 

DJR VECTOR 

DOT A 

EMEMREF 

EOS 

EXEC CONTESTS 

FLAG LOC 

<^PA PheS 

GCVFCT 

GLVECT 

GSVECT 

HEX 1 

HEX"3 

HEX 4 

HEX"7 

HEX'"8 

HFX 10 

HtX^OD 

HEX IF 

HEX"20 

HEX 21 

HEX 2D 

HEX 30 

HEX"5A 

HEX'^3F 

Hiyi. 40 

HEX"41 

HEX"5^- 

Hcx"r- 

HEX"8J 
HEX"fD 
HEX"fr 

iDC'PRES 
INVTIM 
LF 

LS 5 
IS 6 
IS 7 

LS"F 



= <*X1> 



<*X49> 

<*X8> 



C*X10> 

<A vQAs 

<*XFE> 

r- A VQS, 



= <*X80> 
= <*x40a2: 

- /-AVCCN 



c*X80> 
<Av/nQ' 

I 
p 

<*x!'> 



v-^vlO 

<*X^U> 

^ A V '* s 



r <*y4> 



= <** 



:**<80> 
<*X/003> 



C0N.NAME_ADD = <*X7005> 



= <'^XOD> 
= <*X40FD> 
= <'^X40FE> 
= <*X4nA> 
= <'')i.2h'> 
= <*X40> 
= <*X40> 
= <*X7000> 
= <*X48> 

= V*X10> 

= <*X4129> 
= <*X4123> 
= <*X4U5> 
= <*X1> 
= <*X3> 
= <*X4> 
= <*X7> 

- <*x8> 
= <*X10> 
= <*X0D> 

- v*XlF> 

= <*x20> 

= <*K?1> 

= <*X2D> 

= <*X30> 

= <*X5A> 

= <*X5F> 

= <*X40> 

= <*X41> 

= <*X50> 
r <*X7c> 

= <*XbO> 
^ <*XFD> 
r <*XFF> 

- <*X80> 

- <*x8> 
= <*XA> 

:: <*X5> 

r '•*»(6> 
■: <*y7> 

- •-*xf> 



Sequence 13 
V05-01 Page 
14-JUN-1984 15:49:51 DRB0:CB^LL.E^.'UtlJcWKAB.MAC;5 

BIT 24 COMMAND + ST* 'JS WORD 
LS LOCATION FOR APT PARAMETERS 
BIT 4 COMMAND + STATUS WORD 
BIT 15 COMMAND + STATUS WORD 
ADDRESS OF CHECKSUM IN BOOT BLOCK 
LS ADDR OF ALU CC REG 
BIT 27 COMMAND + STATUS WORD 
BIT 20 COMMAND + STATUS WORD 
BIT 21 COMMAND + STATUS WORD 
BIT 17 COMMAND + STATUS WORD 
BIT 10 COMMAND + STATUS WORD 
BIT 7 ON = SECT FOR CONSOLE RAM 
ADDRc'SS IN 8085 BASED TEST WHERE 

VERSION NUMBER IS FOUND (2 BYTES) 
ADDRESS IN 8085 BASED TEST WHERE 

FILE NAME IS FOUND (LAST 2 BYTES) 
HEX VALUE OF CR 

mDDRESS of CRD FLAGS IN BOOT BLOCK 
BOOT BLOCK DISABLE CNTL CHAR FLAG 
ADDRESS OF DIR COMMAND IN BOOT BLOCK 
ASCII FOR DOT 

BIT 22 COMMAND + STATUS WORD 
F,»t 14 COMMAND + STATUS WORD 
'JEGINMNG OF TESTS = RAM LOAD ADDRESS 
LS LOCATION OF FLAG INFO TO WRITE 



7 
(1) 



BIT 12 COMMAND ♦ 
ADDR OF GET CHAR 
ADDR OF GET LINE 
ADDR OF GET SILO 



STATUS WORD 

ROUTINE IN BOOT BLOCK 

ROUTINE \U BOOT BLOCK 

ROUTINE IN BOOT BLOCK 



HEX VALUE 


OF 


1 


HEX VALUE 


OF 


3 


HEX VALl'*i 


OF 


4 


HEX VALUE 


OF 


7 


HEX VALUE 


OF 


8 


HEX VALUE 


OF 


10 


HEX VALUE 


OF 


D 


HEX VALUE 


OF 


IF 


HEX VALUE 


OF 


20 


HEX VALUE 


OF 


21 


HEX VALUE 


OF 


2D 


HEX VALUE 


OF 


30 


HEX VA'UE 


OF 


3A 


HEX VAlUE 


OF 


jF 


HEX VALUE 


OF 


40 


HEX VALUE 


OF 


41 


HEX VALUE 


OF 


50 


HFX VALUE 


OF 


7f 


HEX VALUE 


OF 


80 


HEX VALUE 


OF 


FD 


HEX VALUE 


OF 


FF 


B!T 51 COMMAND + STATUS WORD 


BIT 19 C0MMA:^D + STATUS WORD 


HEX VALUE 


OF 


Lr:E FEED 


LS LOCATION 


5 (ADDRESS) 


lS LOCATION 


6 (DATA) 


LS LOCATION 


7 ixn^ P01NTi:Ic) 


L^ LOCATION 


F {T15) 




.MAIN. 



.MAIN. 



B 2 
U-JUN-198A Fi'che 1 Frame 82 

U-JUN-198'i 16:08:17 VAX-11 Macro 



Sequence 1A 
V03-01 .Page 



U-JUN-198A 15:A9:51 DRB0:[BALL.ENKAB3ENKA6.MAC;3 



8 
(1) 



000000A7 

00000002 

00000001 

00000008 

00000001 

00000080 

00000080 

OOOO^OFF 

0000408B 

OOOOOOAO 

0000007C 

0000001 B 

C000A080 

00000004 

00000080 

00007000 

OOOO'iUD 

OOOOOOOB 

000041 3D 

00000006 

00OOA138 

0C000002 

UOOOOOOA 

00000001 

0000A12E 

0OOOA133 

00000020 

00004086 

00000000 

00000040 

00004117 

00000040 

00000040 

00000020 

00000010 

00000001 

00000044 

00000062 

00000600 
0000005F 
00000060 
00000061 
00000050 
00000054 
00000052 
00000058 
00000041 
0000005 C 
0000005A 
00000058 
00000051 
00000055 
0000005D 
0000005E 
00000053 
00000059 



0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0005 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

000? 

0003 

0003 

0003 

00C3 

0003 

0003 

0003 



370 LOOP CNT ADD 

371 LOOPING " 

372 MM OR LS 

373 MM"SI2E 

374 MOD PRES FLG 

375 NA " 

376 NEG CNT 

377 NOCRk 

378 OF LAG 

379 OPTIONAL TST 

380 OS ADD " 

381 POOER SEQ 

382 PRI STACK 

383 PWRfAIL 

384 R80 PRES 

385 RAM LOAD ADD 

386 RET"VECT0R 

387 ROM.X ADDRS 

388 RSVECT 

389 SEC LEN 

390 SCVFCT 

391 SETPAR ERR 

392 S1NGLE"ERR 

393 SIGNAL 

394 SLVECT 

395 SLVEC1 

396 SPACE A 

397 SP8UFF 

398 STNDRD CON 

399 STATUS" 

400 TU58.DR1VER 

401 USE PRES 

402 UBS BUSY 

403 UBSlDC 10 

404 UBS INTt 

405 WCSfRR 

406 WCS ADDR DAT 

407 WCS-CL FTFO 
408 

409 WCS DAT 32 ADD 

410 WCS^DEjCSR 

411 WCS DE IDAR 

412 WCS'DE'DBUF 

413 WCS DE.MCT 

414 WCS DE MM 

415 WCSlOF.TB 

416 WCS DE JQS 

417 WCS ERR NUM 

418 WCS-EX DBUF 

419 WCS"EX"ICSR 

420 WCS EX IDAR 

421 WCS EX MCT 

422 WCS EX MM 

423 WCS EX PATT 

424 WCS"EX'POSIT 

425 WC^'cX' TB 

426 wcs:ex:ubs 



<*X47> 
<*X2> 

<*X1> 

<*X8> 

<*X1> 

<*X80> 

<*X80> 

<*X40FF> 

t- *.. J A ^ r^ 



= < 



<'-X408B> 
<''X40> 
:*X7C> 

^* V1 D\ 



<*X18> 

<*X4080> 

<''X4> 

<*X80> 

EXEC,C0NTES' 

<'^X4T4D> 

<*XB> 

<*X413D> 

6 

<'^X4138> 

<*X02> 

<*X4> 

<'^X1> 

<*X412E> 

<*X4133> 

<''X20> 

<''X4086> 



<''X40> 

<*X4117> 

<*X40> 

<''X40> 

<'^X20> 

<''X10> 

<*X1> 

<'^X44> 

<''X62> 

<'^X600> 

<^X5F> 

<*X60> 

<*X61> 

<*X50> 

<''X54> 

<*X52^ 

<'^X58> 

<^X41> 

<*X5C> 

<'^X5A> 

<^X58> 

<*;(51> 

<'^X55> 

<*X5D> 

<*X5E> 

<V53> 

<''X59> 



TS 



ADDRESS OF LOOP COUNT 

BIT 25 COMMAND + STATUS WORD 

MSB = MM XFER 

BIT 11 COMMAND + STATUS WORD 

BIT 1 ON = FPA, R80 OR IDC PRESENT 

BIT 23 COMMAND + STATUS WORD 

MSB ON FOR NEGATIVE X COM COUNT 

FLAG IN BOOT BLOCK TO IGNORE <CR> 

CONTROL FLAG IN BOOT BLOCK 

BIT 6 OF SECTION FLAG 

LS ADDRESS OF OS REGISTER 

ADDRESS OF POWER UP SEQ IN ROM 

STACK AREA IN BOOT BLOCK (128 BYTES) 

BIT 18 COMMAND + STATUS WORD 

BIT 7 COMMAND + STATUS WORD 

ADDRESS RAM OVERLAYS LOAD AT. 

RETURN VECTOR TO CONSOLE FROM CRD 

ROM ADDRESS OF X COMMAND 

ADDR OF READ SILO ROUTINE IN BOOT BLOCK 

LENGTH OF A SECTION NAME 

ADDR OF SEND CHAR ROUTINE IN BOOT BLOCK 

BIT 9 COMMAND + STATUS WORD 

BIT 26 COMMAND + STATUS WORD 

BIT 16 COMMAND + STATUS WORD 

ADDR OF SEND LINE ROUTINE IN BOOT BLOCK 

ADDR OF SPECIAL SEND LINE ROUTINE 

HEX VALUE OF SPACE 

ADDRESS IN BOOT BLOCK WHERE SP STORED 

BRANCH ADDRESS TO LOAD STNDARD CONSOLE 

ADDRESS OF COMMAND + STATUS WORD 

ADDRESS OF TU58 DRIVER 

BIT 6 COMMAND + STATUS WORD 

30 COMMAND + STATUS WORD 

29 COMMAND + STATUS WORD 

28 COMMAND + STATUS WORD 

8 COMMAND + STATUS WORD 

OF ADDRESS DATA WORD 



BIT 

BIT 

BIT 

BIT 

ADDRESS 

ADDRESS OF CLEAR 

SUBROUTINE 
ADDRESS OF DATA 32 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 



IDC FIFO ADDR 



XFER ROUTINE 
IDC CSR SUBROUTINE 
IDC DAR SUBROUTINE 
IDC DBUF SUBROUTINE 
MCT SUBROUTINE 
MM SUBROUTINE 
TB SUBROUTINE 
UBS SUBROUTINE 

ERROR NUMBER DATA WORD 

EXAMINE IDC DATA BUF 
IDC CSR 
IDC DAR 

MCT SUBROUTINE 
MM SUBROUTINE 
IDC ECC PATTERN 
IDC ECC POSITION 
TB SUBROUTINE 
UBS SUBROUTINE 



DEPOSIT 
DEPOSIT 
DEPOSIT 
DEPOSIT 
DEPOSIT 
DEPOSIT 
DEPOSIT 



EXAMINE 
EXAMINE 
EXAMINE 
EXAMINE 
EXAMINE 
EXAMINE 
EXAMINE 
EXAMINE 



?Z-E^lK^8-1.5 .MAIN 
.MAIN. 



C 2 
U-JUN-198^ Fiche 1 Frame C2 

U-JUN-198'i 16:08:17 VAX-1 1 Macro 



Sequence 
V05-01 



15 



U-JUN-198A 15:^9:51 DRBO: CBALL.ENKAB3ENKAB.MAC;5 



Page 



9 
(1) 



000000A2 0003 427 WCS EXP DAT 

00000000 0003 428 WCS LOAC ADD 
00000046 0003 429 WCS-MODjAT 
00000045 0003 430 WCS MSK DAT 
00000043 0003 431 WCS REC.DAT 
00000057 0003 432 WCS REST WR 
00000056 0003 433 WCS SAVE WR 

00000063 0003 434 WCS'SEL TlFOA 
0003 435 

00000064 0003 436 WCS SEL FIF06 
0003 437 " " 

00000606 0003 438 WCS VER ADD 

C0000607 0003 439 WCS'FllE NAME 

00000020 0003 440 WRORG LAB 

00000020 0003 441 XFER " 

0003 442 

0003 443 

0003 444 

0003 445 

0003 446 

0003 447 

0005 448 

0003 449 

0003 450 

00000001 0003 451 
00000040 0003 452 
00000080 0003 453 

0003 454 

00000002 0003 455 
00000004 0003 456 
00000008 0003 457 
00000010 0003 458 
00000020 0003 459 

0003 460 

0003 461 

0003 462 

OOOOOOBE 0003 463 

0003 464 

0000008F 0005 465 

0000007F 0003 466 

0003 467 

OOOOOOBD 0003 468 

0003 469 

O00000F8 0003 470 

000000F7 0003 471 

OOOOOOEF 0003 472 

OOOOOODF 0003 473 

0003 474 

0003 475 

0003 476 

0003 4/7 

0005 478 

0005 479 

0005 480 

0003 481 

0005 482 

0003 483 



= <'^X42> 
= <*X0> 
= <*X46> 
= <^X45> 
= <''X45> 
= <*X57> 
= <*X56> 
= <''X63> 

= <*X64> 

= <''X606> 
-- <*X607> 
= <*X20> 
= <*X20> 



ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
ADDRESS 
RESTORE 



WORD 



OF 5> ;ADD DATA 
WCS OVERLAYS LOAD AT. 
OF MODULE NUMBER DATA WORD 
OF ERROR MASK DATA WORD 
OF RECEIVED DATA WORD 
2901 WORKING REGS SUBR ADDR 
SAVE 2901 WORKING REGS SUBR ADDR 
ADDRESS OF SELECT IDC FIFO A 

SUBROUTINE 
ADDRESS OF SELECT IDC FIFO B 

SUBROUTINE 
ADDRESS OF WCS BASED VERSION NUMBER 
ADDRESS OF WCS BASED FILE NAME 
BIT 5 COMMAND + STATUS WORD 
BIT 13 COMMAND + STATUS WORD 



THE FOLLOWING SET OF EQUATES DEFINE THE BITS USED IH 
THE COMMAND AND STATUS WORD 



;FLAG EQUATES 
LOOP S DEF 
).OOP"COM S DEF 
SPEClALjjEF 

NER S DEF 
BELE 5 DEF 
HALT"S"DEF 
SER 5 Def 
APT'S'DEF 



loop^c.def 

loop com c def 
specTal.C^Def 

NER_C_DEF 

BELL C DEF 
HALT C DEF 
SER r 5EF 
APT"C"DEF 



= <*X1> 
= <*X40> 
= <*X80> 



<*X2> 

<'^X4> 

<''X8> 

<*X10> 

<*X20> 



= <'^X8E> 

3 <*XBF> 
= <*X7F> 

= <*XBD> 

= <*XF8> 
= <'*XF7> 
= <*XEF> 
= <'^XDF> 



MASK USED TO SE 
MASK USED TO SE 
MASK USED TO SE 

TO LOOP ON SIZ 
MASK USED TO SE 
MASK USED TO SE 
MASK USED TO SE 
MASK USED TO SE 
MASK USED TO SE 

INDICATOR (NOT 

COMMAND) 



T LOOP ON ERROR 
T LOOP COMAND BIT 
T SPECIAL BIT (USED 
IN6 TESTS) 
T NO ERROR REPORTS 
T BELL ON ERROR 
T HALT ON ERROR 
T SINGLE ERR. REP, 
T APT PRESENT 
SETABLE BY SET 



MASK USED TO CLEAR LOOP ON ERROR 

AND LOOP COMMAND BITS 
MASK USED TO CLEAR LOOP COMAND BIT 
MASK USED TO CLEAR SPECIAL BIT (USED 

TO LOOP ON SIZING TESTS) 
MASK USED TO CLEAR NO ERROR REPORT 

AND LOOP COMMAND BITS 
MASK USED TO CLEAR BELL ON ERROR 
MASK USED TO CLEAR HALT ON ERROR 
MASK USED TO CLEAR SINGLE ERR. REP. 
MASK USED TO CLEAR APT PRESENT 

INDICATOR (NOT CLEARABLE BY CLEAR 

COMMAND) 



; PARAMETER BLOCK FOR TU58 DRIVER 

*************** *********************************************************** 

;TU58 DRIVER PARAMETER BLOCK 



IZZ-ENKAB-1.5 .MAIN 
.MAIN, 



0O0OA106 
00004107 
OOOOAIOD 
00004111 
00004115 
00004116 
00004150 



00000006 
00000009 

7000 
00000010 



0005 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0003 

0005 

0003 

0003 

0003 

0003 

0005 

0005 

0003 

0003 

0003 

0003 

0005 

0003 

0003 

0003 

0005 

0003 

0003 

0003 

0003 

0003 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0005 

0006 

0006 

0009 

0009 

OOOQ 
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484 L,EC PARMB UNIT 

485 SEC"PAR«B"NAM 

486 SEC PARMB EXT 
SEC"PARMB"AOD 
SEC"PARM8"DST 

SEC"PARMB"ERR 
SEC'PARMB'DEF 



487 

438 

489 

490 

491 

492 

493 

494 

495 

496 

497 

498 

499 

500 

501 

502 

503 

504 

505 

506 

507 

508 

509 

510 

511 

512 

513 

514 

515 

516 

517 

518 

519 

520 

521 

522 

523 

524 

525 

526 

527 

528 

529 

530 

531 

552 

553 

554 

555 

556 

557 

538 

539 APT 

540 



<*X4106> 
<*X4107> 
<*X410D> 
<*X4111> 
<*X4115> 
<*X4116> 
<*X4150> 



;UN]T NUMBER 

; FILENAME 

;DOT PLUS FILE EXTENTION 

;LOAD ADDRESS 

.•DESTINATION 6=RAM 7=WCS 

; ERROR RETURN BYTE 

;DEFAULT DRIVE (WHERE MiCMON WAS LOADED 

; FROM) 



****iH^***ik*********i*********** ********************************************* 

EXTERNAL REFERENCES 

ALL EXTERNAL REFERENCES MUST BE LISTED HERE 

***************'********ilr***i****iX*«t*<lt**«[*********************** *********** 

.GLOBAL COMPARE >E0S.F LG, FLAGS, HEX BUF 
.GLOBAL MOVER, PRINT, PRINT HEX,SPACE 
.GLOBAL MWCS A,MCPU A^CR^UF ,HEX_3,CC ADDR,CRLF 
.GLOBAL SHIFT PNT,F WORD, SHIFTER, DOLOOP 
.GLOBAL NOP CSR,REAC WCS,WCS.ADDRESS,WCS.VALUE 
.GLOBAL WRITE WCS,X 5ET PAGE,PERF0RM^CSR 
.GLOBAL X CLR"PAGE,0CSJAL^SHIFT 
.GLOBAL CSR vSLUE,LOAD,CSR,UPC„VALUE,LOAD^UPC 
.GLOBAL PARITY JUMP,PARITY 0N,5J MOV WRWR 
.GLOBAL SHIFT C 2901 , SHIFT R29D1 ,DSTA0 
.GLOBAL READ BaTA 32, WRITE DSTA 32, X CLR WRU 
.GLOBAL DATAT,DATS2,DATA3,!5ATA ShIFT 
.GLOBAL READ LS, WRITE LS,INC WDRD,0S_ADD 
.GLOBAL NOP TNST,CSR SHIFT, X.COM.WRO 
.GLOBAL MAKE XD,XD AI5DRS,X RDT L,X„SHIF T L 
.GLOBAL WCSjAD,PAf!lTY,P0WER_BRANCn,WCS_5HIFT 

.GLOBAL PRINT STRING, M0VER.4, PRINT HEX^I ,LD^UPC 
.GLOBAL CON APD DAT, CON ERR NUM,C0R_EXP_DAT 
.GLOBAL CON EXP"ADD,CON MOD DAT,CON MSK DAT 
.GLOBAL CON REC'DAT,CON REC ADD,ERRi3R CQN,H0VER,5 
.GLOBAL NA FXP RECNA 0THER,SKIP TEST, MSK ERROR 
.GLOBAL COR ERROR, CON BEGIN TEST, 6CVECT,wCS READ 
.GLOBAL WCS"WRI TE, CONTINUE, CNTLC.TYPED, SET rORCONT 
.GLOBAL CLFSR CPU ATT, SHIFTER! ,X SHIFT_R,DECR_Q0RD 
.GLOBAL MICR0"STEP CPU, WRITE. TAB"PNT 
.GLOBAL APT,APT_PASS_CNT 

***n**im*»*********^<r**n *************** *•*****************'***************** 



APT INFORMATION.... THE ADDRESS 
IN OFFSET FROM THE BEGINNING OF 



OF THESE VARIABLES 
THIS PROGRAM. 



MUST NOT CHANGE 



i^***************«*******************ft*****ft*ft**************tt*ft«*****ft*ft***** 



OVERLAY_RAM:: 

OV£RLAY_wCS:: 
RAM LD ADD 



,BLKB 

.BLKB 

.WORD 
.BLKB 



3 
3 

:xEC 

5 



CONTESTS 



STARTING ADDRESS FOR RAM TESTS 
STARTED BY APT (NOT USED FOR CRD) 

STARTING ADDRESS FOR WCS TESTS 
HARTED BY APT (NOT USliD FQR CRD) 

P INTER TO RAM OVERLAY LOAD ADDRESS 



iZZ-ENKAB-1.5 .MAIN. 
l.MMN. 



0000 

0000 

0000 

0000 

0000 

OOOOOOK 

00 

00 

00 

00000022 



C3 

193A* 

CI 
ICOC 

C3 
1063' 

C5 
1070' 
01 

C5 
1C23' 

C5 

00000038 



00 
00 
00 

0000003F 
01 

0000004A 



0010 

0010 

0012 

OOK 

0016 

0018 

001A 

001 C 

001D 

001E 

001F 

0022 

0022 

0022 

0022 

0022 

0022 

0022 

0022 

0022 

0022 

0022 

0022 

0022 

0023 

0025 

0025 

0026 

0028 

0028 

0029 

0028 

0028 

002E 

002F 

002F 

0030 

0032 

0032 

0033 

0035 

0058 

0038 

0038 

0038 

0038 

0038 

0038 

0038 

0038 

0038 

0039 

003A 

0038 

003F 

OOAO 
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5A1 

5^2 

5A3 

5A-^ 

545 

546 

5A7 

5A8 

549 

550 

551 

552 

55? 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 



564 



565 



566 



567 
568 



569 



570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 



APT MAIL BOX: 
APT MESSS6E„C0DE: 
APT'ERROfi N0M8ER: 
APT"SUBTEST; 
APT"TEST NUMBER:. 
APT"PASS"CNT: 



APT MEM SIZE 
APT"HAR[5 FL6 
APT"S0FT FL6 



.WORD 





.WORD 





WORD 





WORD 





WORD 





BLKB 


2 


BYTE 





BYTE 





BYTE 





BLKB 


3 



FLAG 1=TEST START 2=ERR0R 
DIAGNOSTIC ERROR NUMBER 
SUBTEST NUMBER FILLER 
FAILING TEST NUMBER 
tt PASSES EXECUTED 
RESEf^VED FILLER 
APT MEMORY SIZE 
APT HARDWARE INFORMATION 
APT SOFTWARE INFORMATION 
RESERVED FILLER 



**************************************************************************** 

RETURN VECTORS - THC FOLLOWING FOUR INSTRUCTIONS ARE USED AS THE RETURN 
POINT FOR SOME BOOT BLOCK ROUTINES. THE NEXT BYTE IS A FLAG READ 8Y THE 
BOOT BLOCK TO DETERMINE IF MICMON IS LOADED. THE NEXT TWO INSTRUCTIONS 
ARE ALSO USED AS VECTORS FROM THE BOOT BLOCK. THEY MUST NOT CHANGE IN 
OFFSET FROM THE BEGINNING OF THIS PROGRAM. 

********************************************^**************t- **************** 



JMP PARITV ERR 
.8YTE *0303 
.WORD <PARITY ERR-HEAD> 

JMP "POWER REC 
.BYTE ''0303 
.WORD <POWER REC-HEAD> 

JMP CNTLC VEC 
.BYTE *0303 
.WORD <CNTLC VEC-HEAD> 

JMP CNTLP VEC 
.BYTE ^0303 
.WORD <CNTLP VEC"HEAD> 
MJCFLAG: .BYTE 1 

JMP TIMER VEC 
.BYTE ^0303 
.WORD <TIMER VEC-HEAD> 

JMP " AUTO TEST 
.BYTE *0303 
.WORD <AUTO TEST-HEAD> 

.BLKB' 3 

• <^*******tk****** ******************** 



;RETURN FROM PARITY ERROR 



;RETURN FROM POWER FAIL RECOVER 



;RETURN FROM CNTL C TYPED 



;RETURN FROM CNTL P TYPED 



;FLAG SO BOOT BLOCK KNOWS MIC RESIDENT 
;RETURN FROM INTERVAL TIMER INTERRUPT 



;ENTER MICMON IN AUTO TEST MODE 



.-RESERVED FILLER FOR NEW RETURN VECTORS 
***************************************** 



THE FOLLOWING DECLARATIONS ARE FOR GLOBAL VARIABLES. 
DO NOT DISPLACE FROM THEIR CURRENT LOCATIONS. 
ADD NEW VARIABLES AFTER ALL GLOBAL DECLARATIONS. 

***************>************************************************************ 



APT: 

CNTLC^TYPED: 
CONTINUE: 
CON ADD DAT: 
CON ERR NUM: 
CON'EXPlDAT: 



.BYTE 





.BYTE 





.BYTE 





.BLKB 


4 


.BYTE 


1 


.BLKB 


4 



;FLAG 1=APT PRESENT 

;FLAG 1=CONTROL C WAS TYPED 

.-FLAG l=CONTiNUE MODE ENABLED 

;OTHER DATA 

; CONSOLE BASED ERROR NUMBER 

.-EXPECTED DATA 






ZZ-ENKAB-1,5 .MAIN 

,MAIN, 
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1? 
<1) 



00000046 


OOA*; 


586 


0000004B 


00A6 


587 


OOOOOOAF 


004B 


588 


00000053 


004F 


589 


00000055 


0053 


590 


GO 


0055 


591 


GO 


0056 


592 


00 


0057 


593 


FFFF 


0058 


594 


00 


005A 


595 


0000005F 


0058 


596 


00 


005F 


597 


00 


0060 


598 




0061 


599 


C3 


0061 




193A' 


0062 




01 


0064 


600 




0065 


601 


C3 


0065 




ICOC 


0066 




0000 


0068 


602 


00 


006A 


603 


02 


0068 


604 


0000 


006C 


605 


00 


006E 


606 


0000 


006F 


607 


00 


0071 


608 




0072 


609 




0072 


610 




0072 


611 


DB 


0072 


612 


00 


0075 


613 


15 


0074 


614 


01 


0075 


615 


23 


0076 


616 


00 


0077 


617 


15 


0078 


618 




0079 


619 


01 


0079 


620 


A5 


007A 


621 


CO 


00 7B 


622 


15 


007C 


623 




007D 


624 


01 


007D 


625 


90 


007E 


626 


AO 


007F 


627 


15 


0080 


628 




0081 


629 


01 


0081 


630 


10 


0082 


631 


80 


0083 


632 


15 


0084 


633 




0085 


634 




0085 


635 




0085 


636 




00S5 


637 




0085 


638 



CON EXP ADD: 
CON"M0D"DAT: 
CON"MSK"DAT: 
CON REC DAT: 
CON"REC"ADD! 
DOLOOP: 
EOS FLG: 
ERROR^CON: 
F WORlJ: 
FCA6S: 
HEX 8UF : 
NA FXP REC: 
, _ NA OTHER: 
599 PARITY JUMP: 
.BYTE 
,WORD 
PARITY ON: 
POWER BRANCH: 
" .BYTE 
.WORD 
SHIFT PNT 

SKIP Test 
wcs Shift 

WCS.ADDRESS: 
WCS BAD PARITY 
WRITE TAB PNT: 
XD ADPRS: 



.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BLKB 

.BYTE 

.BYTE 

.BYTE 

.WORD 

.BYTE 

.BLKB 

.BYTE 

.BYTE 

JMP 

*O303 

<PARITY 

.BYTE " 

JMP 

*O303 

<POWER REC-HEAD> 

.WORD 

.BYTE 

-BYTE 

.WORD 

.BYTE 

.WORD 

.BYTE 



2 

5 

A 

4 

2 







<*XFFFF> 





PARITY ERR 



ERR-HEAD> 
1 
POWER 



REC 



/GLOBAL CSR EXECUTABLE 
NOP, INST: 



CODE 



X_SHIFT_L: 



X^ROT^L: 



X CLR PAGE 



X_SFT^PAGE: 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTP 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 
.BYTE 



<*XD8> 

<''XGO> 

<*X15> 

1 

< 

< 

< 



■X23> 
'XDO> 
'X15> 



1 

<*XA3> 
<*XCO> 
<'^X15> 

1 

<*X90> 
<*XAO> 
<*X15> 

1 

<*X10> 
<*XB0> 
<*X15> 



EXP DAT ADDR USED BY MSK_ERR 
ASCTi MODULE NAME-FILLED IN 
MASK DATA 
RECEIVED DATA 

REC DAT ADDR USED BY MSK.ERR 
DO WACRO LOOP COUNTER 
FLAG 1=END OF SECTION 
FLAG 1=ERR0R EXISTS 

HALT, LOOP, NER, BELL, SER 

HEX PRINT OUT BUFFER 

FLAG 1=N/A FOR EXP AND REC DA 

FLAG 1=N/A FOR OTHER DATA 



;FLA6 1=CALCULATE PARITY 



SHIFT ROUTINE DATA POINTER 
FLAG 1=SKIP TEST # IS TO LOW 
TWO BYTES OF SHIFT DATA FOLLOW 
WCS ADDRESS TO READ OR WRITE 
FLAG 1=WRITE BAD PARITY 
POINTER TO UPC ADDRES TABLE 
XD ADDRS FIELD OF CPU INST 



;NOP INST FOR CPU CSR 



This subroutine shifts the contents of WRCO] 
result on the Y-bus. The monitor can clock 
read tho r^ryit, To be executed 3 times by 



;CLR WRC1] 



;ROL WRCO] 

;SHIFT LEFT 1 PLACE 



;MISC CCLR. HIGH, PAGE] 



;MISC [SET. HIGH, PAGE] 



right 8 bits and leaves the 
the console read register to 
the monitor for a 32 bit WR 



r 



ZZ-ENKAB-1,5 

.MAIN, 



.MAIN 



0085 
0085 
08 0085 
?3 0086 
AG 0087 
15 0088 
0089 
23 0089 
AO 008A 
15 0088 
008C 
23 008C 
AO 0080 
15 008E 
008F 
21 008F 
AG G090 
15 0091 
009Z 
23 0092 
AG 0093 
15 009A 
0095 
23 0095 
AG 0096 
1 5 0097 
0098 
23 0098 
AG 0099 
1 5 009A 
0098 
23 0098 
'.O 009C 
15 009D 
009E 
AG 009E 
GO G09F 
1 5 GOAO 
00A1 
G0A1 
00A1 
02 00A1 
2' 00A2 
80 00A3 
1 5 OOAA 
00A5 
AG 00A5 
CO 00A6 
15 00A7 
00A8 
00A8 
G0A8 
G0A8 
00A8 
00A8 
00A8 
04 00A8 
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read. ROR will have to have been checked by the console. 



639 

6A0 

6A1 X SHIFT R: 

6A2 

6A5 

6AA 

6A5 

6A6 

6A7 

6A8 

6A9 

650 

651 

652 

653 

65A 

655 

656 

657 

658 

659 

660 

661 

662 

663 

66A 

665 

666 

667 

668 

669 

670 

671 

672 

673 

67A X MOV WRWR: 

675 " 

676 

677 

678 

679 

680 X.CLR.WRO: 

681 

682 

683 

68A 

685 X COM WRO; 

686 

687 

688 

689 

690 

691 

692 

693 

69A 

695 DATA SHJFT: 



.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 

• BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 



.BYTE 
.BYTE 
.BYTE 
.BYTE 

■ BYTE 
.BYTE 
.BYTE 



8 

^X23> 
<*XAG> 
^*X15> 

<'*X23> 
<*XAG> 
<*X15> 

<*X23> 
<*XAO> 
<*X15> 

<*X23> 
<*XAG> 
<*X15> 

<*X23> 
<*XAG> 
<*X15> 

<*X23> 
<*XAO> 
<*X15> 

<*X23> 
<*XAO> 
<*X15> 

<*X23> 
<'^XAG> 
<^X15> 

<*XAG> 
<'^X00> 
<'*X15> 



2 

<*X2F> 
<''X80> 
<*X15> 

<*XAG> 
<*XC0> 
<*X15> 



;R0R 



;ROR 



;R0R 



;R0R 



;R0R 



;ROR 



;ROR 



;R0R 



MOV WRCO] TO WRCO] 
MOVE DATA TO Y-8US 
TO BE READ 



;CLR WRCO] 



;COM WRCO] 



i»«»n««****ii**«»**t**m***t***********************»**»******************»*** 



DATA AREA FOR REAi^S AND WRITES TO CPU (32 BITS) 



«4*«4«****««it-»««irt**«*«**«**«*t4**t************«t***t***tt*t**tt**ftt**tt*** 



.BYTE 



;FGUR BYTE OF SHIFT DATA 



r" 



Z7-ENKAB-1.5 .MAIN 
.MAIN, 



00 
00 
00 
00 
OOOOOOAF 

00 
00 
00 
00 

03 
00000087 



05 
OOOOOOBB 
OOOOOOBE 
00000GC1 



02 
OOOOOOCA 
000000C6 
000000C8 
OOOOOOCA 
OOOOOOCC 
OOOOOOCF 



CI 
0F55* 

C3 
OF 75' 

C5 
1027' 

C9 

C9 

C9 



00A9 

OOAA 

OOAB 

OOAC 

OOAD 

OOAF 

OOAF 

0080 

0081 

0062 

0083 

0083 

006A 

0087 

0087 

0087 

0087 

0067 

0087 

0087 

0087 

0087 

0088 

008B 

008E 

OOCl 

00C1 

0OC1 

00C1 

OOCl 

0OC1 

OOCl 

OOCl 

0OC2 

OOC^ 

00C6 

00C8 

OOCA 

OOCC 

OOCF 

OOCF 

OOCF 

OOCF 

0000 

0OD2 

00D2 

00D3 

00D5 

0005 

0006 

00D8 

00D8 

0009 

00D9 

OODA 

OODA 

OODQ 
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696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

70b 

709 

710 

711 

712 

713 

7U 

715 

716 

717 

718 

719 

720 

721 

722 

721 

72^ 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 



DATAO 
DATA1 
DATA2 
0ATA3 



COMMANDO 
COMMAND 1 
C0MMAND2 
COMMAND 3 



WCS VAL SHIFT: 
WCS:VALDE: 



.BYTE 
.BYTE 
,BYTE 
.BYTE 
,BLKB 

.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BLKB 







2 






3 
3 



;MSB Of 32 BJT DATA AREA 

;LSB OF 32 BIT DATA AREA 
;EXTENDED DATA FOR 3 BYTE MOVES 

;MS8 OF 32 BIT COMMAND+STATUS 
;WORD 

;LSB OF 32 BIT COMMAND+STATUS 

;SHIFT 3 BYTES OF DATA 
;WCS WORD TO BE WRITTEN 



• CSR DATA BUFFER 



csr shift 
csr value 
savFd.csr 



.BYTE 
.BLKB 
.BLKB 



CONT SAVE CSR: .BLKB 



;3 BYTES OF DATA 



.itl^i«<l<ti^<l«tt%***«4^*«^t^^<^**4*4«*^«*4*4««*44!k«*4**«« ************************** 

; UPC DATA BUFFER 

'»*********«c****4*********************************»********«*************** 



UPC SHIFT: .BYTE 

UPC VALUE: .OLKB 

SAVED UPC: .BLKB 

UPC SDB: .BLKB 

CONT SAVE UPC: .BLKB 

UPC COMPARE: .BLKB 

ATT.UPC.SAVE: .BLKB 

;JUMPS TO GLOBAL SUBROUTINES 
COMPARE: 



;2 BYTES OF DATA 



JMP 
'^0303 



738 MOVER: 

739 PRINT: 



.BYTE 

.WORD <C0MPARE^R-HEAD> 



COMPARE^R 



JMP 
^^0303 



.6YTE 

,WORD <M0VER.R-HEAD> 



MOVER R 



.BYTE 



JMP 
-^OSOS 



PRINl.R 



740 
741 

742 

74 3 



.WORD <PR1NT R-HFAD> 
PRINT.HEX: RET 



SPACE: 



.6YTE 
.8YTE 
,6YTE 



-^0311 
RET 
*0311 
RET 

^0311 
JMP 



5PACE.R 



! I 2 

izZ-ENKAQ-1.5 .MAIN. U-JUN-198A Fuhe 1 _^Frame 12 Sequence 2^ 

i.MAIN, K-JUN-198A 16:08:17 VAX-11 Macro V03-OT Page 15 

U-JUN-198A 15:A9:51 0ftBO:C8ALL.£NKABJEMKAB.«AC;5 (1) 

C3 OODB .BYTE *O303 

1021* OODC .WORD <SPACE R-HEAD> 

OODE 7AA CRLF: JMP CRLF_R 

C3 OODE .BYTE *O303 

101A* OODF .WORD <CRLF R-HEAD> 

00E1 7^5 SHIFTER: JMP SHIFTER^R 

C3 00E1 .BYTE *0303 

0EB8' 00E2 .WORD <SHIFTER R-HEAD> 

OOE^ 7^6 NOP CSR: JMP NOP.CSR^R 

C3 GOEA " .BYTE *O303 

OECA* 00E5 .WORD <NOP CSR R-HEAD> 

00E7 liil READ WCS: JMP " " READ.WCS^R 

C3 00E7 .BYTE ^^0303 

0E6D' 00E8 .WORD <READ WCS R-'HEAD> 

OOEA 7*^8 WRITE WCS: JMP " WRITE^WCS.R 

C3 OOEA " .BYTE "0303 

0E8A' OOEB .WORD <WRJTE WCS R-HEAD> 

OOED 7A9 PERFORM CSR; JMP " PERFORM CSR.R 

C3 OOED ".BYTE *O303 

I^F?' OOEE .WORD <PERFORM CSR R-HEAD> 

OOFO 750 LOAD CSR: JMP ' LOAD CSR R 

C3 OOFO " .BYTE *O303 

0EE7' OOFl .WORD <LOAD CSR R-HFAD> 

OOF 3 751 LOAD UPC: JMP " " LOAD UPC,R 

C3 OOFS " .BYTE '^OSOS 

0F19' 00F4 .WORD <LOAD UPC R-HEAO> 

00F6 752 SHIFT L ?901 : JMP " SHIFT L 2901,R 

C3 00F6 " ".BYTE "0303 

1?A9' 00F7 .WORD <SH1FT L 2901 R-HEAD> 

00F9 753 SHIFT R 2901: JMP SHIFT H 2901.R 

C3 00F9 ^ ".BYTE *0303 

1250' OOFA .WORD <SHIFT R 2901 R-HEAD> 

OOFC 75A READ DATA 32: JMP READ DATA 32^R 

C3 OOFC " .Byte *0303 

11BA' OOFD .WORD <READ DATA 32 R"HEAD> 

OOFF 755 WRITE DATA 32: JMP WRI TE.DATA,32_R 

C3 OOFF " ,8VTE "0303 

nD2' 0100 .WORD <WRITE DATA 32 R-HEAD> 

0102 756 READ IS: JMP READ LS R 

C5 0102 " .BYTE "0303 

-167' 0103 .WORD <READ LS R-HEAD> 

0105 757 WRITE LS: JMP WRITE^LS^R 

C3 0105 " .BYTE "0303 

1U6' 0106 .WORD <WIUTE LS R-HEAD> 

0108 758 INC WORD: JMf INC,WORD,R 

C5 0108 " .BYTE "0303 

1281' 0109 .WORD <1»:C WORD R-HEAD> 

0108 759 MAKE XD: JMP " " MAKE XD R 

C5 0108 " .BYTE "0303 

1183' OlOC .WORD <MAKE XD R-HEAD> 

010E 760 PRINT STRING: RET " " 

r9 010E " .BYTE "0311 

010F 761 RET 

C9 OlOF .BYTE "0311 

0110 762 RET 
C9 Clio .BYTE *0311 

0111 763 MOVt^ A: JMP MOVER A R 
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.MAIN. 
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16 
<1) 









c3 om 








0F73' 0112 








01U 








C3 01U 








0F9^* 0^15 








011/ 








C3 0117 








ircc* 0118 








011A 








C3 011A 








0F5F' one 








011D 








C3 011D 








1f31' OME 








0120 








C3 0120 








1FU' 0121 








0123 








C5 0123 








nc9* 0124 








0126 








C3 0126 








1F80' 0127 








0129 








C3 0*.29 








1fB6' 012A 








012C 








C3 012C 








107B' 012D 








012F 








C3 012F 








1A6r 0130 








0132 








C3 0152 








OECV 0133 








0135 








C3 0135 








12BC' 0136 








0138 








C5 0138 








12A0' 0139 








0138 








0138 








0138 








0138 








0138 








0138 








01.3 








0138 


3^ 


39 


35 


38 40 0138 


50 


39 


33 


38 4D OHO 


51 


39 


35 


38 AD 0U5 


39 


38 


33 


38 4D OUA 


38 


3? 


57 


38 40 OUF 


38 


38 


33 


38 40 01>4 


20 


31 


^1 


51 44 0159 


20 


30 


A1 


51 44 015E 



.8VTE 
.WORD 

764 print hex 1: 
" .Byte 

.WORD 

765 LO UPC: 

.BYTE 
.WORD 

766 MOVER 3: 

.BYTE 
.WORD 

767 MSK ERROR: 

.BYTE 
.WORD 

768 CON ERROR: 

.BYTE 
.WORD 

769 CON BEGIN TCST: JMP 

,5yte ^^0303 
.WORD 

770 WCS READ: 

.BYTE 
.WORD 

771 WC5 WRITE: 

■ BYTE 
.WORD 

772 SET FOR CONT: 

" ".BYTE 

■ WORD 

773 CLEAR CPU ATT: 

" .SyTE 

■ WORD 

774 SHIFTERl: 

.BYTE 
.WORD 

775 OECR WORD: 

.8YTE 
.WORD 

776 MICRO STEP CPU: JMP 

" .B?TE 



*O303 

<MOyER 4 R-HEAD> 
JMP ' " PRINT HEX 1 R 

*0303 

<PRINT HEX 1 R-HEAO> 
JMP " " " LO UPC R 
*0303 " " 

<LD UPC R-HEAO> 
JMP MOVER 3 R 

*0303 

<MOV£R 3 R-HEAD> 
JMP MSK ERROR R 

*0303 

<MSK ERROR R"HEAD> 
JMP ■ CON ERROR^R 

*0303 

<CON ERROR R-HEAD> 
CON BEGIN.TEST.R 



<CON BEGIN TEST R-HEAD> 

JMP " " "WCS READ R 

-^0303 

<WCS READ R-HEAD> 

JMP " " WCS WRITE, R 

^0303 

<WCS WRIT£^R-HEAD> 

JMP SET FOR CONT R 

-^0303 

<SET FOR CONT R-HEAD> 

JMP ' " CLEAR CPU ATT^R 

-^0303 

<CLEAR CPU ATT R-HEAD> 

JMP " " " SHIFTERl R 

*0303 

<SHIFTER1 R-HFAi)> 

JMP " DECR.WORO^R 

*0303 

<DECR_W0RD R-HEAO> 

MICRO STEP CPU R 



MODULE LITERALS 



*0303 
.WORD <MICRO STEP CPU R"HEAO> 

777 

7?B 

779 

780 

781 

782 

783 

784 PRT MOO A: 

~ " .ASCII '^8394" 

.ASCII "M8390" 

.ASCII •'M839r' 

.ASCII ••M8389" 

.ASCII "M8728" 

.ASCII "M8388" 

.ASCII '*00A1 " 

.ASCII "OOAO '* 



785 MWCS A 

786 MCPU"A 

787 MMCr"A 

788 MFPA'A 

789 MMEM"A 

790 MIDC"A 

791 MRLO? A: 

792 MR80 A: 



WCS 

CPU 

MCT 

FPA 

MEMORY ARRAY CARD 

IOC 

RL02 

R80 



7Z-ENKAB-1.5 

.MAIM. 



.MAIN. 



^T ^0 54 



4F 
AS 
AE 



?0 



50 
Af 
20 



53 AS 
20 2U 



5A 
^0 



20 4f 
AA AS 



?0 iC 
A'i A9 



4C 
56 



A1 
5^ 



A3 
A5 



20 

5^ 



?0 
?0 



5? 

A1 



20 
5A 
AA 



AB 
45 



A3 
A3 
54 



A5 
A9 
5P 



A8 
5A 
A5 



A3 
53 



55 
50 

45 



5A 
?0 
50 



A5 
?C 
AT 



53 
5A 
5A 



20 
43 
?0 



46 
45 
A5 



30 
44 



50 20 20 20 20 20 
?0 50 55 54 ^5 53 
45 20 2D 20 AA A5 



20 ?0 ^0 20 A5 55 4E 49 



20 
AE 



30 20 45 56 A9 52 AA ?0 



A9 
52 
AC 



a5 4C 42 4f 52 50 20 45 

00 



54 55 A1 
54 52 AF 



00 
^b 
OD 
A2 
00 
31 
32 
33 
1A 
A4 A1 A? 20 
AC A5 A9 46 
OD A5 
^6 
20 2A 2A CD 
20 5? 45 50 
5? A9 55 51 
20 5A AF AE 
54 AE AF A3 
2A 2A 20 
20 2A 2A OD 
AE 47 41 A9 
A9 20 A5 50 
20 AE A9 
33 35 55 54 
2A 2A 20 20 
20 2A PA OD 
Vd AF A3 20 
A? A9 53 53 
20 52 4F 
56 A9 52 44 
2A 2A 20 4D 
00 
00000247 
0000024D 
00 
0000 
00 
00 
0000 
00 
00 
00 
05 
55 50 43 
01 
OD 



0163 

0163 

0163 

0163 

0163 

0163 

0163 

0163 

0163 

0163 

0163 

0163 

016A 

0165 

0171 

01 7A 

0178 

017C 

017D 

01 7E 

017F 

0188 

0197 

0199 

01 9A 

01A6 

0182 

018E 

01C2 

01CE 

01D1 

01DD 

01E9 

01F5 

01F8 

020A 

0208 

021A 

0220 

022C 

02?F 

0238 

024 C 

0241 

0247 

024D 

024E 

0250 

0251 

0252 

0254 

0255 

025<i 

0257 

0258 

0258 

02SC 



793 
794 

795 
796 
797 
798 
799 
800 
8C1 
802 
803 
804 
805 
806 

607 
808 
809 
810 
811 
812 
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ALL PRECEDING DECLARATIONS ARE FOR GLOBAL VARIABLES. 

DO NOT DISPLACE ANY OF THESE FROM THEIR CURRENT LOCATIONS. 

ALL NEW VARIABLES MUST BE ADDED BELOW THIS POINT. 



; VARIABLES 
A ADDRS: 
ABORT A: 



ACK^SAVE: 
ASCTl.1 
ASCII. 2 
ASCII.3 
BAD A: 



313 BAD TAPE A: 
81A 



815 
816 



817 
818 

819 

820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
855 
83A 



B ADDRS: 
BQARD NAME: 
B0ARD"8UF : 
80ARO*NUM: 
BOARD^PNT; 
C.EXElUTE: 
C RUNNING: 
C2^LC ADD: 
CNT PAR: 
CONSOLE TEST: 
CONT DORE: 
CPU, A: 

CRLF A: 



.BYTE 
.BYTE 
.ASCII 

• BYTE 

.ASCII 

.ASCII 

•ASCII 

.BYTE 

•ASCII 



.BVTE 
.ASCII 



•ASCII 
•ASCII 

.ASCII 
•ASCII 

•ASCII 



;A ADORS FIELD OF CPU INST 

21 ;CHAR COUNT 
<CR>"AUT0 TEST ABORTED - " 

;SAVE CPU ACK FOR SUBROUTINES 
"1" 

26 

" BAD - CALL FIELD SERVICE"<CR> 



166 
<CR>"** 



PROPER SETUP REQUIRED - CANNOT 



.BYTE 





.BLK6 


6 


• BLKB 


6 


• BYTE 





.WORD 





• BYTE 





.BYTE 





.WORD 





.BYTE 





• BYTE 





• BYTE 





.BYTE 


3 


.ASCII 


"CPU 


.DYTE 


1 


•ASCII 


''CR> 



"CONTINUE **" 

<CR>***'* CHECK DIAGNOSTIC TAPE INSERTED IN 

"TU58 DRIVE **" 

<CR>"** IF SETUP CORRECT. POSSIBLE TAPE OR 

"DRIVE PROBLEM ***'<CR> 



B ADDRS FIELD OF CPU INST 

BOARD NAME AREA 

BOARD NAME AREA 

NUMBER OF BOARD INPUT 

POINTER TO BOARD TABLE 

TEMP FLAG HOLDING FOR CONTINUE 

TEMP FLAG HOLDING FOR CONTINUE 

ADDRESS TO CALC PARITY ON 

COUNT OF PAR ERRORS 

FLAG 1=C0NS0LE 0=WCS TEST 

FLAG 1=C0NTINUE IS DONE DO RET 

BYTE COUNT 

BYTE COUNT 

CRLF FOR CALL CRLF ROUTINE 



L . 



f ■■ ■ "" 

Z7-ENKAB-1.5 



.MAIN. 



^0 A6 ^f 

37 ?C 50 

5^ 53 ^5 

5^ 20 ^7 

30 33 37 

C5 4C ^F 
52 

50 AD AF 



20 ^A AE 
33 37 2F 
54 20 AF 

AE A9 AE 
2F 31 31 
53 AE 4F 
AF A6 20 
52 50 20 



OD 2A 4A A5 AC '!.9 



5? A5 20 

^0 20 20 

5A AF 20 

Ui 55 '.A 



5A 53 5A 

20 20 5C 

20 20 20 

20 

AF AD 20 



00 

00 

00000261 

00 
66 
2A 2A 2A 
58 Al 56 
20 35 32 
2A 2A 20 
A5 52 OD 

56 20 AF 
32 37 2C 

57 20 2C 
3E 27 20 

OD 5A 
AB AE A5 
AB AE A5 
AB AE A5 
AB AE A5 
AS AE A5 
00 
06 

52 A5 20 
00 

53 A5 2^ 
OC 

20 20 20 
00 
00 
03 
50 A6 
3A 

OD 
A3 45 53 
20 20 52 
A5 52 20 
S2 45 48 
48 53 4D 
OD 45 
00 
05 
30 33 37 42 52 
00 
06 7A* 
00 
00 
00 
00 
00 
3F 

06 
59 52 4f 4u 4S A.'> 



A5 20 2A 
31 51 2D 
54 55 41 
OD 2A 2A 
52 5b 54 
2D 58 41 
43 20 35 
54 49 41 
27 3E 3E 

43 43 

45 43 
48 43 

46 43 

47 43 



52 4F 52 
45 

41 A6 2A 



Al 



20 20 5A 
58 A5 20 
20 20 43 
20 20 20 
20 20 20 



45 
53 



52 
A.F 






43 



5A 

20 



20 

AF 



Si. 



20 
20 



A5 
AE 



5C 
5? 






5. 
54 



C25D 

025E 

025F 

0261 

0261 

0262 

0263 

026F 

0278 

0287 

028D 

0299 

02A5 

0281 

0288 

02C7 

02C9 

02CE 

02D3 

02D8 

02DD 

02E2 

02E3 

02E4 

02EA 

02EB 

02EF 

02F0 

02FC 

02FD 

02FE 

02FF 

0302 
0303 
0304 
0310 
031C 
0328 
032F 
0338 
033D 
033E 
033F 
0344 
0345 
03A7 
03A8 
03A9 
034A 
03Ae 
03Ar 

'.54 
:.5^5 

03V 



835 
B36 
837 
838 
839 
840 
841 



842 



843 

844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 

856 
857 

858 
859 
860 
861 
862 



863 

864 
865 
866 
867 

868 
869 
870 
871 

872 
873 
874 
875 
876 
877 

878 

879 



an CNT: 

DATA XFER FL6: 

ENK.FND: 



END.A: 



ENKCC A: 

£NKCE"A: 

ENKCH A; 

ENKCF'A: 

£NKC6"A; 

ERROR" 

ERROR^A: 

EXECUTE: 
EXT A: 
FAlC^A: 

FAST WRITE: 
FILE LOADED: 
FPA_S: 

HEADER.A: 



HAVE CNT: 
IDC.A: 

INSTR LEW: 
INSTR"PNT: 
LOOP COUNTER: 
LS SETPARERR: 
LS"'PARERf< ACT: 
MAS S8E: " 



MEMORY.A: 

MtM REQ: 

MEND.A: 
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.BYTE 
.BYTE 
.BLKB 

.BYTE 
.BUE 
.ASCIJ 



.ASCJJ 



.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.ASCII 

.BYTE 

.BYTE 

.AGLli 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.ASCII 



.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.WORD 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.ASCII 





2 


102 



COUNT OF CSR INST TO PERFORM 
FLAG 1=XFER WAS DONE 
STORAGE FOR LAST 2 CHARS OF 

SECTION NAME READ FROM FILE 
LAST CHAR IS NULL 



***** END OF VAX-11/730,725 AUTO TEST ******<CR> 



<CR>"R£TURNING TO VAX-11/730,725 CONSOLE, WAIT FOR' 



< • I 



>»• PROMPT**<CR> 



"ENKCC" 

"ENKCE" 

"ENKCH" 

"ENKCF" 

*'ENKCG" 



6 

" ERROR" 



••,EXE" 

12 
1 1 



;FLAG 
;CHAR COUNT 



;FLAG 1=EXECUTE MODE 
;ALL OVERLAYS ARE .EXE 11!:!! 
;CHAR COUNT 
*FAILED*"<CR> 

ii^LAG 1=USE FAST WRITE ROUTINE 

;SECTION LOADED FROM TAPE 

3 ;CHAR COUNT 

"FPA" 

58 ;CHAR COUNT 

<CR> 

"SECT TST ERR EXP REC OTHER 



'MSK MODULE"<CR> 



'RB730 



) I 



1NSTR.TA8LE 











63 

6 

"MEMORY" 



52 

"TYPE 1 TO RETURN TO CONSOLE," 



;FLAG 1=WCS LOOP COUNT READ 
;CHAR COUNT 

STORAGE FOR INSTRUCTION LENGTH 
POINTER INTO INSTRUCTION TmBLE 
LOOP COUNTER 

PARITY ERROR SET BY CPU ATTN 
PAR ERR ACTIVE (BEING PROCESSED) 
MAXIMUM NUMBER OF SINGLE BIT 
ERRORS ALLOWED 



;FLAG 1=MEM REQ TO BE ENABLED 



|?Z"£NKAB-1.5 
.MAIN. 



.MAIN. 



^0 



ic>o 



U2 



00 



U-JUN-198A Fiche 1 Frjme M2 

U-JUN-198A 16:08:17 VAX-11 Macro 



Sequence ?5 
V03-0T Page 



2C -^.S ';C AF 036E 

A^ 5A 53 A5 52 20 AF 5A 20 32 20 0372 880 

5^ 53 A5 5^ 20 AF 54 55 41 20 54 037E 

00 038A 881 

00 038B 882 

08 038C 885 

53 45 54 55 4E 49 4D 20 038D 884 

00 0395 885 

OF 0396 886 

A1 AC 49 41 56 41 20 54 4F AE 20 0397 887 

00 45 4C 05A3 

08 03A6 888 

54 4E 45 53 45 52 50 20 03A7 889 

00 03AF 890 

09 0380 891 
20 20 20 20 41 2F 4E 20 20 03B1 892 

076F* 03BA 893 

00 036C 894 

00 03BD 895 

00 038E 896 

00 038F 897 

03C0 898 

00 03C0 899 

00 03C1 900 

00 03C2 901 

000003CD 03C3 902 

0000 03C0 905 

00 03CF 904 

04 03D0 905 

?Q 5^ 4F 20 03D1 906 

00 0305 907 

00 03D6 908 

0000 0307 909 

00 0309 910 

0000 03DA 911 

0000 030C 912 

08 030E 913 

00 4A A5 53 S^ a 50 20 20 20 20 030F 914 

0000 03EA 915 

00 03EC 916 

00 05E0 917 

0000 03EE 918 

00 03F0 919 

00 03F1 920 

4F A3 20 31 30 20 45 54 20 49 44 03F2 921 

04 03FE 922 

31 41 51 44 03FF 925 

00 0403 924 

00 0404 925 

00 0405 926 

00 0406 927 

OOCO 0407 928 

0000 0409 929 

00 0408 930 

0000 040C 931 

0OOCD418 C40E 932 

00 0418 953 



MICRO STEP: 

MINUS: 

MINUTES^A: 

MOD ERR: 
MODlNOT.PRbS.A: 

MOD.PRES.A: 

MORE DATA: 
NA.AT 

NAME PNT: 
NEWSDM: 

NOADO.FLG: 
NOJNIT: 

N0_RETURN: 

NO SAVE UPC.CSR 
NO SPACE: 
NOT FOUND: 
OL0"TEMP BUF: 
OLD'TTeuF: 
OLD SUM: 
OR,A: 

PACK ERROR: 
PAR 3N: 
PAR"VECT: 
PAR0ONE : 
PARSE PNT: 
PARSE"TA8L£: 
PASS^A: 

PASS CNT: 
PRlUl CNT. 
PRJNT"PASS: 
PRINT"PNT: 
PRJNT"START: 
RESTART: 
RETRY JDC2: 
H102J: 

RUNNING: 
SECTION e NUM: 
SETACK TlC: 
SKIP CRT: 
STARTING UPC: 
STEP CNTT 
TABlF MODE: 
TABLE PNT: 
TEMP 8UF: 
TEMP"8YTE: 



.ASCII 

.BYTE 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.ASCII 

.WORD 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

:.BYTE 
.BYTE 
.BYTE 
.BLK8 
.WORD 
.BYTE 
.BYTE 
.ASCII 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.WOPO 
.WORD 
.BYTE 
.ASCII 
.WORO 

.BYTE 

.BYTE 

.WORD 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.BY^E 

.BYTE 

.BYTE 

.WORD 

.WORD 

.BYTE 

.WORD 

.BlKB 

.BYTE 
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19 
(1) 



2 TO RESTART AUTO TEST 





8 


15 



MINUTES' 



" NOT AVAILABLE"<CR> 



;FLAG NON 0=MICRO STEP MODE 
;FLA6 1=NEG NUMBER TYPED 
;CHAR COUNT 

;FLAG 1=M0DUL£ CALLED OUT 
;CHAR COUNT 



PRESENT" 



8 
■ I 



9 

•• N/A 

NAME TABLE 















10 





4 











11 



OR 



CHAR COUNT 



FLAG 
CHAR 



1=M0RE 
COUNT 



DATA TO XFER 



POINTER INTO TEST NAME TABLE 
NEW CHECKSUM VALUE 
FLAG 1=N0 ADDRE*-S ON EXAM+DEP 
FLAG 1=N0 INIT OF WCS (TcSTO) 
FLAG 1=N0 RETURN AFTER MICMON 

ERROR 
FLAG 1^ DON'T SAVE UPC OR CSR 
FLAG 1=N0 SPACE AFTER PR HEX 
FLAG 1=INPUT PARSED NOT FOUND 
BACKUP TEMP BUFF FOR ERRORS 
BACKUP POINTER TO TTBUF 
OLD CHECKSUM VALUE 
CHAR COUNT 

FLAG 1=WR0NG RL01 PACK 
FLAG 1=PARITY TO BE ENABLED 
PARSER ADDRESS DEST ADDRESS 
FLAG 1=END OF INPUT LINE 
POINTER TO PARSE BUFFER 
POINTER TO PARSE TABLE 



PASSED'*<CR> 















"DI TE 01 CO"<CR> 

4 

"DQA1" 















c 

10 




PASS COUNTER 

NUMBER OF CHARS TO PRINT 
FLAG IMPRINT PASS MESSAGE 
POINTER TO CKARS TO BE PRINTED 
FLAG 1=PRINT START MESSAGE 
FLAG 1=RESTART PARSER 



CHAR COUNT 

FLAG 1=CPU RUNNING MODE 
BOARD NUMBER FROM SEC. TABLE 
FLAG 1=SET CONSOLE ACKNOWLEDGE 
NUMBER OF CHARS SPANED 
STARTING UPC ADDRESS 
MICRO STEP COUNTER 
TABLE MODE INDICATOR 
SECTION TABLE POINTER 
TEMP CHAR BUFFER 
TEMP STORAGE BYTE 



N 2 



V-E'nInAB-i .5 .MAIN. 
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1984 


Fkhe 1 Frame N2 Sequence 26 
;UN-1984 16:08:17 VAX-1 I Macro V03-0T Page 20 


.MMN. 










14-. 












14-JUN-1984 15:49:51 DRBOrCSALL.ENKABDENKAB.MAC; 3 (1> 


0000 


0419 


934 


TEMP WORD: 


.WORD 




;TEMP STORAGE WORD 


0000 


0418 


9!5 


TEMP"W0RD1: 


.WORD 







TEMP STORAGE WORD 


0000 


041D 


936 


TEMP"W0RD2; 


■ WORD 







TEMP STORAGE WORD 


00 


041F 


937 


TEMP"FLAG: 


.BYTE 







TEMP STORAGE OF SECTION FLAG 


00000426 


0420 


938 


TEMP"SECTJON: 


.BLK8 




6 


TEMP STORAGE OF SECTION NAME 


00 


0426 


939 


TEST NUM: 


.SYTE 







•CURRENT TEST NUMBER 


00 


0427 


940 


TEST"NUM1: 


.BVTE 







•STARTING TEST NUMBER 


00 


0428 


941 


TEST"NUM2: 


.BYTE 







•ENDING TEST NUMBER 


1D 


0429 


942 


TEST_START_A: 


.BYTE 




29 


•CHAR COUNT 


'.2 41 54 55 20 4? 4E 49 54 55 45 54 


042A 


943 




.ASCII 




"TESTING STARTED - RUN TIME = " 


49 54 ?0 4E 55 52 20 2D 20 44 45 b*. 


0436 












20 3D 20 4': 4D 


C442 












00 


0447 


944 


TESr 7ER0: 


.BYTE 







•FLAG 1=EXECUTING TEST 


0802* 


0448 


945 


Jim" "-■•}<} I 


.WORD 




TIME TA8LE 


;POINTER INTO TEST TIME TABLE 


0000 


C44A 


946 TIMODr CNT: 


.WORD 







;TIME OUT COUNTER 


on 


044C 


947 


TRACE: 


.BYTE 







;FLAG 1=TRACE MODE 


0000 


044D 


948 


TTaUF PHTt 


.WORD 







;POINTER TO TTY INPUT BUFFER 


63 


044F 


949 VERSION: 


.BYTE 




99 


;CHAR COUNT 


45 42 2C 20 20 20 20 2A 2A 2A 2A OD 


04 50 


950 


.ASCII 




<CR> 


***** BEGIN VAX-11/750,725 AUTO TEST ****" 


5^ 2F V 51 20 58 41 56 20 4E 49 47 


045C 












20 4F 54 55 41 20 35 32 37 2C 30 33 


0468 












2A 2A 2A 20 20 20 20 20 54 53 45 54 

2A 
35 2E 31 20 4E 4f 49 53 52 i5 56 OD 


04 74 
0480 
0481 












951 


.ASCII 




<CR> 


'VERSION 1.5 RUN TlMt APPROXIMATELY 15:00 MINUTES*'<CR> 


A) 41 20 45 4D 49 54 20 4E 55 52 20 


048D 












:C' 59 ^■■- 45 54 41 4D 49 58 4F 52 50 


0499 












45 54 55 4E 49 4D 20 30 30 3A 35 31 

OD 53 
00 


04A5 
0461 
0483 












952 WARM RESTART: 


.BVTE 




;FLAG 1=P0WER FAIL RESTART 


DO 


0484 


955 


WARN_MESS: 


.BYTE 




208 ;CHAR COUNT 


55 2C 52 45 50 4r 52 50 20 2A 2A OD 


0485 


954 




.ASCII 




<CR>"** PROPER SETUP REQUIRED - TYPE <CR> TO " 


.:". 5r 49 55 51 45 5? 20 50 55 54 45 


04C1 












5? 43 5C 20 45 50 59 54 20 2D 20 44 


04C0 












20 4F 54 20 3E 


04D9 












^A PA >0 45 55 4E 49 54 4E 4? 43 


04DE 


95'-. 




.ASCII 




"CONTINUE **" 


2C 4B 45 45 48 43 20 20 20 2A 2A OD 


04E9 


956 




.ASCII 




<CR>"** CHECK FOR RL02 DIAGNOSTIC PACK " 


■■■: 49 44 20 32 3: 4C 52 2C 52 4f 46 


04F5 












4B ^.3 41 50 20 43 49 54 53 4F 4E 47 


0501 












20 


050D 












20 20 20 ?7 i*B 43 41 50 44 52 ^3 27 


C50E 


957 




.ASCII 




"•CRDPACK' **" 


2A 2A 20 


051A 












5 3 4E 49 20 20 20 ?0 20 20 2A 2A OD 


051D 


958 




.ASCII 




<CR>"** INSERTED AND SPINNING IN DRIVE " 


^0 55 2C 44 ^E 41 20 u^ 45 54 52 45 


0529 












•^2 44 c'l- 4E 49 20 47 '.: 49 4E 4E 49 


053S 












20 45 56 49 


0541 












c^'A 2A 20 20 20 20 20 5A 51 41 51 44 


0545 


959 




.ASCII 




"DQA1: *•" 


50 55 U 45 53 20 46 49 20 2A 2A OD 


0551 


960 




.ASCII 




<CR>"** IF SETUP CORRECT, POSSIBLE Rl02 DRIVE " 


4f 5C 20 2t 54 45 45 52 52 4F 43 20 


055D 












20 32 V i^c 52 20 45 4C 42 49 53 53 


0569 












20 45 56 49 52 4^ 


0575 












2A 2A 20 4D 45 4C 42 4F 52 50 


0576 


961 




.ASCII 




"PROBLEM •*" 


04 


0585 


962 


WCS_A: 


.BVTE 




4 ;CHAR COUNT 


20 55 43 57 


0586 


963 




.ASCII 




"WCS " 


CO 


058A 


964 


WCS CALC: 


.BYTE 




;FlAG 1-WCS PARITv CALCULATION 


0: 


0588 


965 


WCS">.0ADty': 


.8VTE 




C ;FLAG 1=WCS OVERLAY LOADED 


r-r. 


C5SC 


966 


WCS"PN^ 


.B^TE 




;C0UNT for WCS 3 BYTE LOADS 


0000 


058D 


96^ 


XF:^ (NT: 


.WORD 




C 


;LONG WORD XFER COUNTER 



1Z2-ENKAB-1,5 
.MAIN. 



.MAIN, 





















00000592 


058F 






















00 


0592 






















0000 


0593 






















00 


0595 




















0000059A 


0596 






















2D 


059A 


50 


59 


54 


20 


32 


50 


4C 


52 


20 


2A 


2A CD 


059B 


?0 


AF 


54 


20 


3E 


52 


45 


5C 


20 


31 


20 45 


05A7 


S3 


^5 


54 


20 


45 


55 


4E 


49 


54 


4E 


4F 43 


0583 














20 


20 


47 


4E 
2A 


49 54 

2A 09 

68 


058F 
05C5 
05C8 


?0 


A5 


56 


49 


52 


44 


20 


46 


49 


2A 


2A OD 


05C9 


20 


35 


30 


53 


54 


20 


41 


20 


53 


49 


20 31 


05D5 


20 


A5 


52 


4F 


4E 


47 


49 


20 


4E 


45 


48 54 


05E1 














20 


52 


4F 


52 


52 45 


05ED 






2A 


2A 


20 


45 


47 


41 


53 


55 


45 4D 


05F3 


^5 


50 


59 


54 


20 


44 


4E 


41 


20 


2A 


2A OD 


05FD 


'.F 


43 


20 


4F 


54 


20 


3E 


52 


43 


3C 


32 20 


0609 


53 


AA 


20 


46 


49 


20 


45 


55 


4F 


49 


54 4E 


0615 














20 


31 


20 


45 


56 49 


0621 






2A 


2A 


20 


20 


20 


20 


41 


20 


53 49 
51 


0627 
0631 


5A 


55 


55 


45 


20 


20 


20 


2A 


2A 


2A 


2A OD 


0632 


4C 


42 


41 


4E 


4E 


55 


52 


20 


52 


45 


4D 4F 


063E 


^E 


47 


41 


49 


44 


4F 


52 


45 


49 


4D 


20 45 


0u4A 


?A 


2A 


2A 


20 


20 


20 


55 


43 


49 


54 


55 4F 

2A 

01 
56 
00 
15 

36 

00 
15 

01 
90 
CO 
15 

01 
BE 
00 
15 


0656 
066? 
0663 
0663 
0663 
0663 
0663 
0663 
0663 
0663 
0665 
0664 
0665 
0666 
0667 
0667 
0668 
0669 
066A 
066A 
066A 
0668 
066C 
066D 
066E 
066E 
066E 
066F 
0670 
0671 
0672 



B 3 
14-JUN-1984 Fiche i Frame 83 Sequence 27 

14-JUN-1984 16:08:17 VAX-11 Macro V05-0T Page 21 
14-JUN-1984 15:49:51 0R80:[BALL.ENKAB]ENKA8.MAC;3 (1) 



968 XFER OEST: 

969 XFER MM: 

970 XFER-PNT: 

971 iERO"BYTE: 

972 ZEROlWQRD: 

973 warn mesa: 
974 



975 

976 WARN MESB: 

977 



CSR EXECUTABLE CODE 

NOTE: THE INSTRUCTIONS THAT ARE PAIRED WITH 

DURING EXECUTION. THUS THE ADDRESS 

ADDRESS MY BE MODIFYED 



978 
979 



980 

981 VERSION 1: 

982 .ASCII 



983 
984 
985 
986 
987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 
1010 
1011 



.BLKB 
,BYTE 
• WORD 
.BYTE 
.BLKB 
.byte 
.ascii 



.asci 1 
.BYTE 

.ASCII 



.ASCII 
.ASCII 



.ASCII 
.BYTE 



;ADDR DATA XFER TO 
;FLAG FOR MM OR LS XFER 



3 







4 

45 ;CHAR COUNT 

<CR>"** RL02 TYPE 1 <CR> TO CONTINUE TESTING 



**■' 
104 ;CHAR COUNT 

<CR>"*MF DRIVE 1 IS A TS05 THEN IGNORE ERROR 



"MESSAGE **" 

<CR>"** AND TYPE 2<CR> TO CONTINUE IF DRIVE 1 



«« 



IS A 

49 ;CHAR COUNT 

<CR>"**** CUSTOMER RUNNABLE MICRODIAGNOSTICS 



**** 



X_READ_LS: 



SPREAD. LS: 



X CLR CPU ATT: 



X_WRITE_LS: 



.BYTE 
.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 



.BYTE 
.BYTE 
.BYTE 
.BYTE 



.BYTE 
.BYTE 
.BYTE 
.BYTE 



1 

<*X36> 
<*X00> 
<*X15> 



<*X36> 
<*XO0> 
<*X15> 



1 

<*H90> 
<*XCO> 
<*K15> 



1 

<*XBE> 
<^X00> 
<*X15> 



S XXXX ARE DYNAMICLY MODIFIED 
W?iS ASSEMBLED INTO THEM. THIS 



;MOV LSCO] TO WRCOD 



;MOV LSCO] TO WRCO] 



.•INSTRUCTION COUNT 

;MISC CCLR.CP. ATTN. AND. ACK] 



.•INSTRUCTION COUNT 
;MOV WRCO] TO LSC03 



ZZ-ENKAB-1.5 .MAIN. 
L^IAIN. 



BE 
00 
15 



0000067A 



01 

13 

?0 A1 ^i2 ^B ^l AS 20 AS 55 20 A9 AA 

CD 3A 20 51 20 A5 5A 

00 

CA 

CD 38 ?0 36 20 A5 5A ?0 A9 AA 

00 

13 

20 A2 A2 AB AE AS <:'0 AS 5^ ?0 A9 AA 

CD AA 20 39 20 A5 5A 

00 

OA 

OD A6 20 A6 20 A5 SA 20 A9 AA 

00 

oc 

00 A3 A2 AB AE A5 20 A5 53 20 A9 AA 

00 
OC 

OD AA A2 AB AE A5 20 A5 53 20 A9 AA 

00 
OC 

OD A5 A2 AB AF AS 20 A5 53 20 A9 AA 

00 
OC 

OD A1 A^ AS AE A5 20 A5 53 20 A9 AA 

02 
OC 

CD A2 A3 AB A£ A5 20 A5 53 20 A9 AA 

03 



0672 

0673 

067A 

0675 

0675 

0675 

0675 

0675 

0675 

0675 

0675 

0675 

0675 

0676 

06 7 A 

067A 

067A 

067A 

06 7A 

06 7A 

067A 

067A 

067A 

06 7A 

067A 

067A 

06 7A 

067A 

0678 

067C 

0688 

068F 

0690 

0691 

069B 

069C 

069D 

06A9 

0680 

06B1 

0662 

06BC 

0680 

06BE 

06CA 

06C8 

06CC 

06D8 

0609 

060A 

06E6 

06E7 

06E8 

06FA 

06f5 

06? 6 

0702 



1012 S WRITE LS: 

1013 " 
101A 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 

102A NUM SHIFT: 
1025 INPDT NUM: 
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;MOV WRCOJ TO LSCO] 



2? : 
(1) , 



.BYTE 


<*XBE> 


.BYTE 


<'^X00> 


.BYTE 


<'^X15> 



INPUT HEX NUMBER AREA 

A ;A BYTES OF HEX DIGITS 



.BYTE 
.BLKB 



1026 

1028 

1029 

1030 

1031 

1032 

1033 

103A 

1035 

1036 

1037 

1038 

1039 INSTR TABLE: 

10A0 



INSTRUCTION STREAM TABLE 

TH]S TABLE IS THE INSTRUCTION STREAM TO BE USED TO INPUT THE COMMANDS 

TO MICMON. THE BIT OF THE FIRST BYTE BEFORE THE INSTRUCTION IS USED TO 

INDICATE WHETHER THE CRD SHOULD PRINT A 'TESTING STARTED' MESSAGE, AND 

BIT 1 INDICATES WHETHER TO PRINT THE 'PASSED' MESSAGE UPON COMPLETION. 

THE SECOND BYTE BEFORE THE INSTRUCTION IS THE CHARACTER COUNT OF THE 

INSTRUCTION. 



10A1 

10A2 
10A5 
10AA 
10A5 
10A6 
10A7 

10A8 
10A9 
1050 
1051 
1052 
1053 
105A 
1055 
1056 
1057 
1058 
1059 

1060 
1061 

1062 
1063 
106A 
1065 
1066 



.BYTE 
.BYTE 
.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

■ BYTE 

.ASCII 

.BYTE 



1 

19 ;CHAR COUNT 

"DI SE ENKBA TE 1 A"<CR> 





10 

"DI TE 6 8"<CR> 



19 

"01 SE ENKBB TE 9 D"<CR> 



10 

"DI TE F F"<CR> 



12 

"DI SE ENKBC"<CR> 



12 

"01 SE ENKBD"<CR> 



12 

"DI SE ENKBE"<CR> 



12 

"01 SE ENKCA"<CR> 

2 

12 

"01 SE ENKCB"<CR> 

5 



;CHAR COUNT 

;CHAR COUNT 

CHAR COUNT 

CHAR COUNT 

CHAR COUNT 

CHAR COUNT 

CHAR COUNT 

CHAR COUNT 



u 



I7Z-ENKAB-1.5 .MAIN. 
uMAlN. 



U 

?0 A3 A3 AB AE A5 20 A5 53 20 A9 AA 
OD 32 33 20 31 20 A5 5A 

03 
OC 

OD AA A5 AB AE A5 20 A5 53 20 A9 AA 

01 
OC 

OD A5 A3 AB AE A5 ?0 A5 53 20 A9 AA 

02 
OC 

CD A8 A3 AB AE A5 20 A5 53 20 A9 AA 

03 
OC 

OD A6 A3 AB AE A5 20 A5 53 20 A9 AA 

03 
1A 

20 A7 A3 AB AE A5 20 A5 53 20 A9 AA 
OD 30 31 20 A6 20 A5 5A 

01 

07 

OD AE 52 55 5A A5 52 
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t'O 31 20 5A 52 Al 50 2C 55 
20 20 20 20 20 

20 20 20 20 20 59 52 Af AD 
20 20 20 20 20 

20 32 20 5A 52 A1 50 20 55 
20 20 20 20 20 

20 20 20 20 20 20 20 20 A1 
20 20 20 20 20 

20 20 ?0 20 20 20 30 33 37 
?0 20 20 20 20 

31 20 5A 52 Al 50 20 32 30 
20 31 Al 51 AA 

20 53 ?0 5A 52 Al 50 20 55 
20 20 20 20 20 



1A 
50 A3 OD 
20 20 20 

1A 
A5 AD OD 
20 20 20 

1A 
50 A3 OD 
20 20 20 

1A 
50 A6 OD 
20 20 20 

U 
5c OD 
20 20 20 

lA 
52 OD 
20 20 20 

1A 
50 A3 OD 
20 20 20 



A2 



AC 



0703 
070A 
0710 
0718 
0719 
071A 
0726 
0727 
0728 
073A 
0735 
0736 
07A2 
07A3 
07AA 
0750 
0751 
07!^? 
075E 
0766 
0767 
0768 
076F 
076F 
076F 
076F 
076F 

076F 

076F 

076F 

076F 

076F 

076F 

0770 

077C 

078A 

0/85 

0791 

0799 

079A 

07A6 

07AE 

07AF 

0768 

07C3 

07CA 

07D0 

07D8 

07D9 

07E5 

07ED 

07EE 

07FA 

0802 

0802 

0802 

0802 



"RETURN"<CR> 

*************** t***************************'*******'***********'**'^********:** 



1067 
1068 

1069 
1070 
1071 
1072 
1073 
107A 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 

108A RETURN J 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

109A 

1095 

1096 

1097 NAME TABLE: 

1098 

1099 
1100 

1101 
1102 

1103 
110A 

1105 
1106 

1107 
1108 

1109 RETURN N: 
1110 



.BYTE 
.ASCII 

.BYTE 

.BYTE 

, ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.ASCII 



20 ;CHAR COUNT 

"DI S£ ENKCC TE 1 32"<CR> 



.BYTE 
.BYTE 
.ASCII 



3 

12 

"DI 

1 

12 

"D] 

2 

12 

"DI 

3 

12 

"DI 

3 

20 

"DI 


SE 


ENKCD' 


'<CR> 


;CHAR 


COUNT 


SE 


ENKCE* 


'<CR> 


;CHAR 


COUNT 


SE 


ENKCH' 


•<CR> 


;CHAR 


COUNT 


SE 


ENKCF* 


'<CR> 


;CHAR 


COUNT 


SE 


ENKCG 


TE F 


;CHAR 
10"<CR> 


COUNT 


1 
7 








; CHAR 


COUNT 



TEST r'^ME TABLE 

THIS TABLE CONTAINS THE TEXT FOR THE PROGRESS MESSAGES THAT INDICATE 
THE TYPE OF TESTING THAT IS BEING DONE. ALL STRINGS MUST BE 20 
CHARACTERS IN LENGTH TO INSURE THAT THE PRINTOUT LINES UP PROPERLY. 

******************************** •>*****«rA****************i****************** 

.BYTE 
.ASCII 

.BYTE 
.ASCII 

.BYTF 
.ASCII 

.BYTE 
.ASCII 

.BYTE 
.ASCII 

.BYTE 
.ASCII 

.BYTE 
.ASCII 



20 

<CR>"CPU PART 1 


;CHAR COUNT 


20 
<'CR>"MEMORY 




20 

<CR>"CPU PART 2 




20 
<CR>"FPA 




20 
<CR>"RB730 





20 

<CR>"RL02 PART 1 DQA1 

20 

<CR>"CPU PART 3 



1 1 



1111 
1112 
1115 
111 A 



******* *************************** *K*«*************************4**4******* 

TEST TIME TABLE 



ZZ-ENKAB-1.5 
,MAiN, 



.MAIN. 



0^ 
30 33 3A 33 

0-; 
30 33 3A 31 

04 
35 3/* 3A 30 

OA 
35 34 3A 31 

04 
35 34 3A 30 

04 
35 31 3A 30 

04 
30 30 3A 34 



03 

41 50 46 

0000082C 

06 

59 52 4F 4D 45 4D 

05 

30 53 37 Ul 52 

00 

04 

31 41 51 44 

00000841 

04 

30 41 51 44 



53 43 
50 41 



01 
57 

02 
44 



0802 

0802 

0802 

0802 

0802 

0802 

0803 

0807 

0808 

080C 

080D 

0811 

0812 

0816 

0817 

081B 

081 C 

0820 

0821 

0825 

0825 

0825 

0825 

0825 

0825 

0825 

0825 

0825 

0825 

0825 

0825 

0825 

0825 

0826 

0829 

082C 

082D 

0833 

0834 

0839 

083A 

0858 

083F 

0841 

0842 

0846 

0846 

0846 

0846 

0846 

0846 

0846 

0846 

0846 

0847 

084A 

084B 



1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1169 

1170 
1171 
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THIS TABLE CONTAINS THE APPROXIMATE RUN TIMES FOR EACH TYPE OF CRD 
TESTING. ALL TIMES MUST CONSIST OF A 4 CHARACTER STRING, 



24 
(1) 



TIME. TABLE: 



RETURN.T: 



.BYTE 

-ASCII 

.BYTE 

.ASCII 

.BYTE 

•ASCII 

.BYTE 

.ASCII 

■ BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 



4 

"3:30" 

4 

"1:30" 

4 

••0:4y' 

4 

"1:45" 

4 

"0:45" 

4 

"0:15" 

4 

"4:00" 



;CHAR COUNT 



CRD OPTION TABLE 

THIS TABLE LISTS THE ASCII TEXT THAT IS TO BE DISPLAYED IN THE EVENT THAT 
THE DEVICE IS FOUND TO BE BAD. THE CPU IS NOT INCLUDED, EACH ENTRY 
MUST CONSIST Of 7 BYTES. THE FIRST INDICATES THE CHARACTER COUNT OF 
THE MODULE NAME. THE ASCII TEXT COMES NEXT, FOLLOWED A BLOCK OF THE 
APPROPRIATE SIZE TO MAKE THE ENTRY EQUAL TO 7 BYTES. 

CRD OPT A: 



.BYTE 


3 


.ASCII 


"FPA" 


.BLKB 


3 


.BYTE 


6 


.ASCII 


"MEMORY" 


.BYTE 


5 


.ASCII 


"RB730" 


-BYTE 





.BYTE 


4 


.ASCII 


"DQA1" 


.BLKB 


2 


.BYTE 


4 


.ASCII 


"DQAO" 



* 

; BOARD NAME TABLE 



BOARD TABLE: .BYTE 

.ASCII 
■ BYTE 
.ASCII 



1 
"WCS" 

"DAP" 



.-BOARD NUMBER 
; BOARD NUMBER 



_ J 



ZZ-ENKAB-1,5 

.MAIN, 



.MAIN. 
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02 


084E 


1172 




55 50 43 


084F 


1173 




04 


0852 


1174 




54 43 4D 


0855 


1175 




08 


0856 


1176 




41 50 46 


0857 


1177 




10 


085A 


1178 




43 44 49 


0858 


1179 




FF 


085E 


1180 






085F 


1181 






085F 


1182 






085F 


1183 






085F 


1184 






085F 


1185 






085F 


1186 






085F 


1187 






085F 


1188 






085F 


1189 






085F 


1190 






085F 


1191 






085F 


1192 






085F 


1193 






085F 


1194 






085F 


1195 






085F 


1196 




83 


085F 


1197 


41 


42 4B 4E 45 


0860 


1198 




00 


0865 


1199 






0866 


1200 




83 


0866 


1201 


^? 


42 4B 4E 45 


0867 


1202 




00 


086C 


1203 






086D 


1204 




83 


0860 


1205 


43 


42 4B 4E 45 


086E 


1206 




00 


0373 


1207 






0874 


1208 




81 


0874 


1209 


44 


42 '.8 4E 45 


0875 


1210 




00 


08 7A 


1211 






0878 


1212 




81 


0876 


1213 


45 


42 4B 4E 45 


087C 


1214 




00 


0881 


1215 






':882 


1216 




CO 


0882 


1217 


46 


42 48 4E 45 


0883 


1218 




00 


0888 


1219 






0889 


1220 




CO 


0889 


1221 


47 


42 46 4E 45 


088A 


1222 




00 


088F 


1223 






0890 


1224 




02 


0890 


1225 


(;i 


43 A8 4E 45 


0891 


1226 




00 


0896 


1227 






0897 


1228 



BOARD NUMBER 
BOARD NUMBER 
BOARD NUMBER 
BOARD NUMBER 
END OF BOARD TABLE 

*****H*ik**************<****<****<r<rH<lr***i»t*)*************f****** ****************** 



.BYTE 

.ASCII 

-BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 

.ASCII 

.BYTE 



2 

"CPU" 
4 
"MCT" 

8 

"FPA" 

<*X10> 

"IDC" 

<*XFF> 



SECTION NAME TABLE (NOTE: ALL ENTRIES MUST BE THE SAME NAME LENGTH (6)) 

AND ALL FILL CHARS MUST BE ZERO'S (BINARY ZEROS) 

THE BYTE BEFORE EACH NAME IS USED TO SET SECTION FLAG AS FOLLOWS 



SECTION_FLAG 



BIT 7 



BIT 6 
BITS - 5 



FF = END OF TABLE 

= NAME IS SECTION NAME FOR WCS 

1 = NAME IS SECTION NAME FOR CONSOLE RAM 
1 = OPTIONAL TEST 

XX = CPU CLUSTER BOARD NUMBFR 



*<»****»********************************************************************* 

SEC.TABLE: 

.ASCII 



<*X83> 



.BVTE 
.ASCII 
• BYTE 



<*X83> 
"ENK8A'* 



.BYTE 

.ASCII 

.BYTE 

.BY1E 

.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 



'ENKB8 



1 1 



<*X83> 

"ENKBC" 



<*X81> 

"ENKBD" 



<*X81> 

"ENK8E" 



<*XC0> 

"ENKBF" 



<*XCO> 

"ENKBG" 



<*X02> 
"ENKCA" 



;8085 BASED CPU TESTS 1-8 

;8085 BASED CPU TESTS 9-F 

;8085 BASED CPU TESTS 10-1D 

;8085 BASED CPU TESTS 1E-26 

;8085 BASED CPU TESTS 27-2E 



;8085 BASED WCS MARCH TEST. 
; (OPTIONAL) 



;8085 BASED APT UART TEST 
; (OPTIONAL) 



;WCS BASED CPU lEST 



iZZ-EMKAB-1.5 
j.MAlN,. 



.MAIN. 









02 


0897 


1229 


A? 


A3 


A6 


AE A5 


0898 


1230 








00 


089D 
089E 


1231 
1232 








OA 


089E 


1233 


A3 


43 


AB 


AE A5 


089F 


123A 








00 


08AA 
03A5 


1235 
1236 








02 


08A5 


1237 


AA 


45 


AB 


AE A5 


08A6 


1238 








00 


08AB 
08AC 


1239 
12A0 








08 


08AC 


12A1 


A5 


A3 


A3 


AE A5 


08AD 


12A2 








00 


0882 
08B3 


12A3 
12AA 








10 


08B3 


12A5 


46 


A3 


AB 


AE A5 


08BA 


12A6 








00 


08G9 
08BA 


12A7 
12A8 








10 


088A 


12A9 


A7 


A3 


AB 


AE A5 


086B 


1250 








00 


08C0 
08C1 


1251 
1252 








10 


08C1 


1253 


A8 


A3 


AB 


AE A5 


08C2 


125A 








00 


0SC7 
08C8 


1355 
1256 








FF 


08C8 
08C9 


1257 
1258 








00 


08C9 


1259 






000008DO 


08CA 


1260 










08D0 


1261 










08D0 


1262 










08D0 


1263 










08D0 


126A 










08D0 


1265 










08DO 


1266 










08D0 


1267 








00 


08D0 
08D1 


1268 
1269 






00000921 


08D1 


1270 










0921 


1271 










0921 


1272 










0921 


1273 










0921 


127A 










0921 


1275 










0921 


1276 










0921 


1277 










0921 


1278 










0921 


1279 










0921 


1280 








0601 


0921 


1281 








0602 


0923 


1282 








0603 


0925 


1283 








060A 


0927 


128A 








0606 


0929 


1285 



SECTJONJLAG; 
SECTION NAME: 



G 3 

1A-JUN-198A 
1A' 
1A' 

.BYTE 
.ASCII 
• BYTE 

-BYTE 
•ASCII 
■ BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.ASCII 

.BYTE 

.BYTE 

.BYTE 
.BLKB 
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<*X02> 

"ENKC8" 



<*XOA> 

"ENKCC** 



<*X02> 

"ENKCD" 



<*X08> 

"ENKCE" 



<'^X10> 

"ENKCF" 



<*X10> 

"ENKCG" 



<*X10> 

"ENKCH" 



<*XFF> 


SEC^LEN 



;WCS BASED CPU TEST 
;WCS BASED MCT TEST 
;WCS BASED CPU TEST 
;WCS BASED FPA TEST 
;WCS BASED IDC TEST 
;WCS BASED IDC TEST 
;WCS BASED IDC TEST 

;END OF TABLE 

.'SECTION TYPE AND BOARD NUM 
;SAVE BYTES FOR NAME 



INPUT BUFFER AREA 

TTBUF^CNT: .BYTE 

TTBUF: .BLKB 80 



CHAR CNT OF INPUT LINE PUT 
HERE BY GET LINE ROUTINE 
TTY BUFFER 



UP'' VERIFY ADDRESS TABLE 

THIS TABLE OF VALUES IS COMPARED TO ACTUAL UPC VALUES TO VERIFY 
THE WRITE OF DATA TO THE CPU IS WORKING CORF^ECTLY 



WRJTE^TAB: 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



<*X601> 
<*X602> 
<*X603> 
<'^X60A> 
<*X606> 



ZZ-E^KAB"K5 .MAIN. 
.MAIN, 



0603 


0928 


1286 


0605 


092D 


1287 


0606 


092F 


1288 




0931 


1289 




0931 


1290 




0931 


1291 




0931 


1292 




0931 


1293 




0931 


129A 


02 


0931 


1295 


^9 AA 


0932 


1296 




095A 


1297 


CO 


093A 




0998' 


0955 






0937 


1298 


C9 


0937 






0938 


1299 


01 


0938 


1300 


A3 


0939 


1301 




093A 


1302 


CD 


093A 




G8A6' 


0938 






093D 


1303 


C9 


093D 






093E 


130A 


0? 


093E 


1305 


A5 52 


093F 


1306 




09A1 


1307 


C3 


09A1 




0991' 


09A2 






09AA 


1308 


C9 


09AA 






09A5 


1309 


0? 


09A5 


1310 


AA AC 


09A6 


1311 




09A8 


1312 


CD 


09A8 




0939' 


09A9 






09AB 


1313 


C9 


09A8 






09AC 


131A 


01 


09AC 


1315 


A9 


09AD 


1316 




09AE 


1317 


CD 


09AE 




18Ar 


09Af 






0951 


1318 


C9 


0951 






0952 


1319 


02 


0952 


1520 


A2 A1 


0953 


1321 




0955 


1322 


C3 


0955 




^to2 


0956 






0958 


1323 


C9 


0958 






0959 


132A 
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.WORD <*X603> 
.WORD <*X605> 
.WORD <*X606> 

'; CHAR STRINGS AND JUMP ADDRESSES FOR PARSING AT COMMAND LEVEL 

I **************************************************************************** 

MAIN. TAB; 



■ BYTE 
.WORD 

.BYTE 



.8YTE 
.WORD 

.BYTE 



.BYTE 
.WORD 

.BYTE 



.BYTE 
.WORD 

.BYTE 



.BYTE 
.WORD 

.BYTE 



.BYTE 
.WORD 

.BYTE 



"Dl" 
DIAG^COMMAND 



.BYTE 

.ASCII 

CALL 

*0315 

<D1AG COMMAND-HEAD> 

RET " 

^0311 



;D] MUST COME BA Dl!!!! 
.'DIAGNOSE COMMAND 



1 



CONT^COMMAND ."CONTINUE COMMAND 



.BYTE 

.ASCII 

CALL 

*0315 

<CONT COMMAND-HEAD> 

RET " 



•RE 



STNDRD_CON_COM.SUC 



.BYTE 

.ASCII 

J MP 

*0303 

<STNDRD CON COM SUC-HEAD> 

RET - - - 

^^0311 



; RE TURN COMMAND 



;RETURN TO STANDARD CONSOLE 



2 

•ID" 

LOADER 



.BYTE 

.ASCII 

CALL 

*0315 

<LOADER-HEAD> 

RET 

*0311 



;LOAD SECTION (NO EXECUTE) 



1 

"r 



EXEC.TESTO 



.BYTE 

.ASCII 

CALL 

*0315 

<EXEC TESTO-HEAD> 

RET " 

*0311 



;1NIT (EXEC WCS TEST 0) 



' 'AB' ' 
START UP 



.BYTE 

.ASCII 

J MP 

-^0303 

<START UP-H£AD> 

RET " 

^0511 



;ABORT (FUTURE EXPANSION) 



L 



Z7-ENKAB-1.5 .MAIN 
.MAIN. 



01 
00 

C9 

C9 

C9 

C9 

FF 



02 

AF A2 

CD 
OAOF' 

C9 

0? 
A5 53 

CD 
0A5D* 

C9 

02 
A5 5A 

CD 
OACA' 

C9 

02 
AF A3 

CD 
080E' 

C9 

02 
A1 50 

CD 
081 A* 



0959 

095m 

0958 

095B 

095C 

095C 

095D 

095D 

095F 

095E 

095F 

095F 

0960 

0960 

0960 

0960 

0960 

0960 

0960 

0960 

0961 

0963 

0963 

096A 

0966 

0966 

0967 

0967 

0968 

096A 

096A 

096B 

096D 

096D 

096E 

096E 

096-^ 

0971 

0971 

0972 

097A 

097A 

0975 

0975 

0976 

0978 

0978 

0979 

0978 
0978 
097C 
097C 
097D 
097F 
097F 
0980 
098? 



1325 
1326 
1327 

1328 

1329 

1350 

1331 
1332 
1335 
153A 
1335 
1336 
1337 
1338 
1339 
13A0 
13A1 
13A2 

13A3 

13AA 
13A5 
13A6 
13A7 

13A8 

13A9 
15S0 
1551 
1352 

1353 

135A 
1355 
13j6 
1357 

1358 

1559 
1360 
1361 
1362 

1565 



13 
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;END ON LINE HAS <CR> 
;FJLLER— DO NOT REMOVE ! I 



28 
(1) 





.BYTE 


1 




.ASCII 


<CR> 




RET 




.BYTE 


*0311 
RET 




.BYTE 


'^0311 
RET 




.BYTE 


*0311 
RET 




.BYTE 


*0311 





.BYTE <*XFF> 



/FILLER— DO NOT REMOVE! ! 
/FILLER— DO NOT REMOVE'! 

;END OF TABLE 



********************************** *******************^************************* 

!• CHAR STRINGS AND JUMP ADDRESSES FOR PARSING THE DIAGNOSE COMMAND 
***************************************<(***<***«********<f*«i******************** 

DIA6 TAB: 



.BYTE 
.WORD 

.BYTE 



.BYTE 
.WORD 

.BYTE 



.SYTE 
.WORD 

.BYTE 



.8YTE 
.WORD 

.BYTE 



.BYTE 
.WORD 



2 

"80" 

DIAG BOARD 



.BYTE 

.ASCII 

CALL 

'^0315 

<DIA6 80ARD-HEAD> 

RET 

*0311 



; DIAGNOSE BOARD 



"SE" 

DIAG_SECTION 



.BYTE 

.ASCII 

CALL 

'0315 

<DIAG SECTION-HEAD> 

RET 

*0311 



;DIAGN0SE SECTION 



"TE" 
OIAG.IEST 



.BYTE 

.ASCII 

CALL 

*0315 

<D1AG TEST-HEAD> 

RET 

*0311 



;D1AGN0SE TEST 



2 

"CO" 

DIAG CONIIN 



.BYTE 

.ASCII 

CALL 

*0315 

<DIAG CONTIN-HEAD> 

RET " 

'^0311 



/DIAGNOSE CONTINUE 



.BYTE 

.ASCII 

CALL 

"0315 

<D1AG PA5S-HEAD> 

RET " 



"PA" 
DIAG.PASS 



/DIAGNOSE PASS 



ZZ~EN<AB-1,5 .MAIN. 

I.MAIN. 



C9 


0982 






0983 


136^ 


01 


0985 


1365 


00 


098^ 


1366 




0985 


1367 


CD 


0985 




1C06* 


0986 






0988 


1368 


C9 


0988 






0989 


1369 


FF 


0989 


1370 




098A 


1371 




098A 


1372 




098A 


1373 




098A 


137A 




098A 


1375 




098A 


1376 




098A 


1377 




098A 


1378 




098A 


1379 




098A 


1380 




098A 


1381 




098A 


1382 




098A 


138? 




098A 


138A 




098A 


1385 




098A 


1386 




098A 


1387 




098A 


1388 




098A 


1389 




098A 


1390 


21 


098A 




AC FD 


098B 






098D 


1391 


OA 3E 


0980 






098F 


1392 


66 


098F 






0990 


1393 


71 


0990 






0991 


139A 




0991 


1395 




0991 


1396 


FF 3E 


0991 






0993 


1397 


ID D3 


0993 






0995 


1398 




0995 


1399 


C^ 


0995 




AUO 


0996 






0998 


UOO 




0998 


U01 




0998 


U02 




0998 


U03 




0998 


V.04 




C998 


UC5 




0998 


U06 




0998 


U07 



.BYTE 
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'^0311 





.BYTE 1 






.BYTE 


;ENO OF LINE 




CALL SET PARDONE 




.BYTE 


"0315 




.WORD 


<SET PARD0NE-HEAD> 
RET ■ 




.BYTE 


'^0311 






.BYTE <*XFF> 


;END OF TABLE 



BEGIN CHECKSUM: 

COMMAND SUBROUTINES 

STNDRD CON COM 

THIS ROuTIRE is ENTERED IF A RE, T/E, OR S/U COMMAND IS ISSUED 

FHOM THE CONSOLE DEVICE. IT WILL INITIALIZE THE INTERVAL TIMER 

BY DOING A MASTER RESET TO IT AND THEN GO TO ROM ADDRESS 0. 



STNDRD.CON_COM: 





LXI H,CRD FLAGS 


• BYTE 


<H*8> ! 1 


.BYTE 


<CRD FLA6S''HEAD>a255 




MVI " A, HEX A 


.BYTE 


<A*8> ! 6 , hEx A&255 




ORA M 


.BYTE 


*O260 1 M 




MOV M,A 


.BYTE 


"O100 : <h*8> : A 



;SET BIT 2 OF CRD.FLAGS TO INDICATE 

«CRD FLAGS-HEAD>S"XFF00>/256 
; UNSUCCESSFUL CRD RUN 



STNDRD CON COM SUC : 

MVI A, HEX FF 

.BYTE <A*8> I 6 , HEX FFB255 

OUT ITfSR " 

.BYTE ^^0323 , i:CSRS255 

JMP RET VECTOR 
.BYTE '^0303 
.WORi) <RET VECTOR-HEAD> 



;LOAD ACCUM WITH FF 

;SEND FF TO INTERVAL TIMER (MASTER 

.-register A 

; RESET) 

;RETURN TO CONSOLE 



DIAG COMMAND 

THc CJAGNOSE COMMAND CAUSES EXECUTION OF DIAGNOSTICS IN ONE OF THE 

(FOLLOWING MODES 

n BY THE DIAGNOSTIC NAME 



f ^ "" 

t 

ZZ-ENK.AB-'i.S 
.MAIN. 



.MAIN, 



5A 
003A* 
OF 
D2 
09AF* 



AF 

52 
003A* 

AF 
3C 
12 

03n' 



08'DT 



C9 



Df 06 

CD 
1308* 



3A 
OOIC 

3^ 
OQAC* 

5A 

0010' 

12 

OOAb* 

5A 



0998 

0998 

0998 

0998 

0998 

0998 

0993 

0999 

099B 

099C 

099D 

099F 

099F 

099F 

C9A0 

09A1 

09A3 

09A3 

09AA 

09A5 

09A6 

09A8 

09A8 

09A8 

09A9 

09AB 

09AB 

09AC 

09AE 

09AE 

OyAE 

09AF 

Q9AF 

09AF 

09AF 

09AF 

09AF 

0981 

0981 

098? 

098A 

0984 

09BA 

0985 

0987 

098 :' 

0988 

098A 

098A 

0988 

0980 

098D 

098E 

09CO 

09CO 

09C1 

09r3 



U08 
U09 
UIO 
U11 
U12 
U13 



K 3 
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2) BY THE MODULE NAME 

3) ALL NON-OPTIONAL DIAGNOSTICS 



U15 



U16 



U17 

1A18 



U19 



U?0 

1-'.21 

U22 
U23 

U?4 
U?5 

U26 



M*27 
Mi2% 



H29 
U30 
U31 
U3? 
U33 



DIAG COMMAND: 
.8YfE 
.WORD 
■ BYTE 
.BYTE 
.WOftr 



.8YTE 
.BYTE 
.WORD 



2001$: 



.BYTE 
■ BYTE 
.BYTE 
.WORD 



.BYTE 
.BYTE 

■ BYTE 
.WORD 



.BYTE 



,8YT£ 



If CONTINUE 

*072 

<CONTINUE-HEAD> 

'^Ol? 

*0322 

<2001$-HEAD> 

CLEAR CONTINUE 
*O250 ! A 
'^062 

<CONTJNUE-HEAD> 
SET RESTART 
*0250 : A 
*04 ! <8*A> 
"062 
<R£START-HEAD> 

LXI H,TT8'JF 

<H*d> ! 1 
<TTBUF-HEAD>&255 
SHLD TT8UF PNT 

*0A2 
<T1BUF^PNT-hEAD> 

RET 

*0511 

ENDJF 



MVl B,APT C DEF 

<B*8> : 6 , APT C DEF4255 
CALL CLEAR L5 STAT 



;with A 



;with A 



;THJS COMMAND JS ILLEGAL IN 



; CONT MODE SO PUT BACK TO 



; NORMAL MODE AND RESTART PROG 
; BACK AT PARSER SO STACK 

«TTbOF-H£AD>&*XFF0O>/256 

; WILL REFLECT A NORMAL ENTRY 



■ BYTE 


'^0315 


.WORD 


<CLEAR.LS.STAT-HEAD> 




LDA APT MEM SIZE 


.BYTE 


*072 


.WORD 


<APT MEM SIZE-HEAD> 




STA DATA3 


.BYTE 


-^062 


.WORD 


<DATA3-HEAD> 




LDA APT HARD M G 


.BYTE 


"072 


.WORD 


<APT HARD FLG-HEAD> 




STA " DSTA2 


.BYTE 


"062 


.WORD 


<DATA2-HEAD> 




LDA APT SOFT FLG 


.BYTE 


"072 


.WORD 


<rAPT SOF" FLG'-HEAD> 




STA " OSTAI 



GENERATE LCL 2001 NAME 

GET BIT TO CLEAR FUR NO APT 

C'.EAR LS ERROR CONTROL BIT 

;GET MEM SIZE THAT APT SENT 

;PUT IN BYTE STORAGE 

;GET APT HARDWARE CONFIG 

;PUT IN BYTE 1 STORAGE 

;G£T APT SOFTWARE CONFIG 

;PUT IN BYTE 2 STORAGE 



ZZ-EN<AB-1,5 
.MAIN. 



.MAIM, 



L 3 
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31 
(1) 



32 
OOAA* 

3A 
001 F' 

32 
00A9* 



A9 3E 

CD 
1U6' 



AF 
3C 
32 
02EA' 



02 3E 

5? 

0A08* 



21 
08'5F» 

22 
OAOC 



CD 
1E8A' 



AF 

52 
03EA' 

3C 

52 

03E8' 



AF 

52 

0018' 

AF 

5? 

0019' 



09C3 

09C4 

09C6 

09C6 

09C7 

09C9 

09C9 

09CA 

09CC 

09CC 

09CC 

O^CE 

09CE 

09CF 

09D1 

09D1 

09D1 

09D2 

09D3 

09DA 

09D6 

C9D6 

09D6 

:)9D8 

09D8 

09D9 

09D8 

09D8 

0908 

09DC 

09DE 

09DE 

09DF 

09E1 

09E1 

09E1 

09E2 

09EA 

09EA 

09E4 

09E5 

09E5 

09E6 

09E8 

09E8 

09E9 

09E9 

09EA 

09EC 

09EC 

09EC 

09ED 

09EE 

09FO 

09F0 

09F1 

09F2 



U34 
U35 



U36 
U37 

lA3y 



1A39 
HAO 



U41 
14A3 



K44 
UA5 



UA6 



U^8 



UA9 
U50 

U51 



K52 
U53 



U5A 
US'; 



U56 



.8YTF 
.WORD 

.8YTE 
.WORD 

.BYTE 
.WORD 



.BYTE 

.BYTE 
• WORD 



.BYTE 
.BYTE 
.BYTE 
.WORD 



.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.WORD 



-BYTE 
.WORD 



.BYTE 

.BYTE 
.WORD 

.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.WORD 

.BYTE 
.BYTE 

.WORD 



*062 

<DATA1-HEAD> 

LDA APT SOFT FLG+1 

*072 

<APT SOFT FLG+1-HEAD> 

STA " DSTAO 

*062 

<DATA0-HEAD> 

MVI A, APT PARAM 

<A*8> i 6 , APT PARAM&255 

CALL WRjTE l5 R 

*0515 

<WRITE LS R-HEAD> 



SET EXECUTE 
"0250 ! A 
"Qii \ <8*A> 
*062 
<EXECUTE-HEAD> 

MVI A, 2 
<A*8> 1 6 , 2^255 
STA TABLE.MODE 
*062 
<TABLE,M0DE-HEAD> 

LXJ H,SEC^TA8LE 

<H»5> ! 1 

<SEC TABLE-HEA'^>&255 

SHLD TABLE.r^NT 

^^042 

<table_pnt-head> 
call set all_tests 

^^0315 

<SET ALL TESTS-HEAD> 



A 
A 
PASS CNT 



XRA 
*O250 
STA 
*062 
<PASS CNT-HEAD" 
INR " A 
! <8*A> 

PASS CNT+1 
062 
<PASS CNT+1"HEAD> 



*0A 
STA 



APT PASS CNT 

A " 



CLEAR 

*O250 

-^062 

<APT PASS CNT-HEAO> 

CLEAf? APT PASS CNT + 1 

''0250 ; A 

*06? 

<APT PASS CNT+1-HEAD> 



;wtth A 



;6ET APT RESERVED BYTE 
;PUT IN BYTE 3 STORAGfc' 

;LS LOCATION TO WRITE 
;WRITE INTO LS 

.-CAUSES lXIT of PARSER 



;SET TO ALL SECTION MODE(D) 



«S£C TABLE-HEAD>&^XFF00>/256 
" ;RESET TABLE POINTER 



;SET UP TEST NUM FOR ALL 
: TESTS AND CLEAR EOS FLG 



;with A 



;with A 



;w1th A 



;A NOW CONTAINS 1 

;SET TO 1 PASS (DEFAULT) 

;INIT MAILBOX PASS CNT 

;T0 



iZZ-ENKAB-1.5 .MAIN. 

:.MA1N. 



H 3 

U-JUN-198A 



F 



AF 

12 
03D9' 

AF 
32 
038A' 



?1 
09'60» 

CD 
1D68' 



3A 
03D9' 

87 

CO 

3A 
03C2* 

B7 

CO 



C5 
09FC' 



09FA 

09FA 

09F5 

09F6 

09F8 

09F8 

09F9 

09FA 

09FC 

09FC 

09FC 

09FD 

09FF 

09FF 

OAOO 

0A02 

0A02 

GAG? 

0A03 

0A05 

0A05 

0A06 

0A06 

0A07 

CA07 

0A07 

0A08 

GAGA 

OAOA 

0A08 

GAG8 

OAOC 

GAGC 

GAGC 

OAOO 

OAOF 

GAOF 

OAOF 

OAOF 

GAOf 
OAOF 
OAOF 
OAOF 
OAOF 

OAOf 
OAOF 
OAOF 
'.AOF 
OAOF 
OAOF 
OAOF 
OAOF 
OAOF 
OAOF 
OAOf 
OAOF 
OAO^ 



U57 



1A58 



1^>59 
K60 



U61 



K6? 
1A63 



U6A 

U65 

U66 
U67 

U68 

U69 

U70 
U71 



U-JUN-198'i 
U-JUN-198A 

CLEAR PARDONE 
,8YTE *0250 ! A 
.8YTE *062 
.WORD <PARD0N£-HEAD> 

CLEAR MICRO STEP 
.8YTE *O250 ! A 
.BYTE *062 
.WORD <MICRO.STEP-HEAD> 

1$; LXl H.DJAG TAB 

.BYTE <H*8> : 1 
.8YTE <D1AG TA8-HEAD>a255 

CAIL ' PAR TEMP BUF 
.8YTE *0315 
.WORD <PAR_TEMP_8UF-HEAD> 

LDA PARDONE 
.8YTE *072 
.WORD <PARD0NE-HEAD> 

ORA A 
.BYTE '^0260 ! A 

RN2 
.BYTE ^^0300 

LDA NOT FOUND 
.BYTE *072 
.WOF^D <NOT FOUND-H£AO> 

ORA A 
.BYTE *O260 ! A 

RNZ 
.8YTE ^^0300 
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;with A 



;with A 



;RES£T RE-ENTRY PARSING FLAG 



;SET TO NO MICRO STEPPING 



;PARSE OIAG COMMAND LINE 



M.72 

U73 

U75 
U76 
M*77 
H78 
.A79 
U80 
U81 
U82 
U83 
U8A 
U85 
U86 
U87 
U88 
U89 

U90 
U91 
H92 
U93 



«DJAG TAB"HEAD>8*XFF00>/2S6 

" ;UNTIL ERROR OR <CR> 



;GET FLAG 

;SET CONDITION CODES 
;RETURN IF PARDONE (<CR>) 

;GET NOT FOUND FLAG 

;SET CONDITION CODES 
;RET IF NOT FOUND 



• BYTE 
.WORD 



JMP 1$ 

*0303 

<13-HEA0> 



DIAG 80ARD 

THIS"R0UTINE INPUTS A BOARD NAME WHILE PARSING THE DIAGNOSE COMMAND 
THIS BOARD NAME iS THEN LOOKED UP ON A TABLE AND A BOA'lD NUMBER IS 
FOUND. TABLE MODE WILL BE SET SO THAT ONLY SECTION NAM':S WITH MATCHING 
BOARD NUM8ER5 WILL BE USED. THE TABLE WILL BE AS FOLLOWS 

NUMBER NAME 



1 


WCS (M8394) 


2 


DAP OR CPU (M8390) 


U 


MCT (M8391) 


8 


FPA (M8389) 


10 


IOC (M8388) 



^^ (TERMINATOR) 



****4«******««*«»**«i»*4**t***t«««****t***«V*t*«tt**t**'*t**tt*****««*1(t*« 



DlAu BOARD: 



INLD 



TT8UF PNT 



iZZ"EV\AB-1.5 



.MAIN, 



N 3 
U-JUN-1984 Fiche 1 Frame N3 Seguence 39 

U-JUN-198'; 16:08:17 VAX-11 Macro V05-0T Page 35 

U-JUN-198A 15:^9:51 DRB0:C8ALL.ENKABJENKA8.MAC;3 (1) 



lA 

22 
0^19' 

CD 
0E33' 

?A 

0A19* 

n 

CD 
of:>f' 



?i 
08*46' 

22 



AF 

5C 
12 

0^08' 



CD 

:r75' 












OAOF 
0A10 
0A12 
0A12 
0A13 
0A15 
0A15 
0A16 
0A18 
0A18 
0A19 

OAie 

OAie 

OAK 
CAIE 
OA10 
0A1F 
0A21 
0A?1 
0A?1 
0A2? 
OA?A 
0A2A 
0A?5 

oa:7 

CA?? 
0A?7 

CA28 

0A?9 
OA?A 

OA?C 
CA?C 
0A3C 
0A2D 
OA^F 
0A2F 
0A30 
0A3? 
0A5? 
CA35 
0A55 
CA3S 
CA36 
CA38 
0A38 
0A38 
0A59 
GA3e 
0A3r 

0A3D 
0A5F 

■'.'A AG 

■:amO 

,'***• t 

CAi*^ 
-A£,S 



U9A 
U95 
U96 
U97 

U98 



U99 

15Q0 



1501 



150? 
T503 



?504 
1505 n 

1506 
1S07 

1508 



1509 
15^0 



1 t,1 i 

15\^ 



;with A 



.8YTB "052 

.WORD <TTBUF PNr-HEAD> 

SHLD TEMP WORD 

.BYTE -^042 
.WORD <TEMP W)RD-HEAD> 

CALL " SKIP TO SPEC 
.8YTE "0315 
.WORD <SKJP TO SPEC-HEAD> 

LHLD " Temp word 

.8YTE *U52 

.WORD <TEMP WORD"HEAD> 

LXI " D^eOARD NAME 
.BYTE <D*8> : 1 
.BYTE <BOARD NAM£-HEAD>&255 , 

CALL " MOVER 3 R 
.8YTE "0315 
.WORD <M0VER„3^R-HEAD> 

LXI H, BOARD TABLE 
.8YTE <H»8> ! 1 
.8YTE <B0ARD TAeLE-H£AD>e255 

SHLD BOARD PNT 

.8VTE *042 
.WORD <BOARD_PNT-HEAD> 

SET TABLE MODE 

.8YTE *0250 ! A 
.GYTE *04 ! <8*A> 
.BYTE "062 
.WORD <TABLE_MODE-HEAD> 

LHLD BOARD PNT 

.BYTE *052 
.WORD <BOARD PNT-HEAD> 

LXI " D, BOARD 8UF 
.BYTE <D*8> ! 1 
.evTE <80ARD BUF-HEAD>&255 , 

CALL " MOVER 4 R 
.BYTE "0315 
.WORD <MOVER A R-HEAD> 

SHLD " Board pnt 

.BYTE "OA? 

.WORD <BOARD PNT-HEAD> 



IFEQI BOARD BUF^HEX FF 
.9^TE *072 

.u'ORD <BOARD BUF-H£AD> 
.BYTE "0376 " 
.8YT? HEX FF 
.pyT£ *0302 
.WORD <?002$-HEAD> 

^n B,<"X01> 

,8^Te <B«8> : 6 , "X0U255 

jMP ERROR ROUTINE NO RET 
.Qv'F "0303 
.WORD ^fRPOR ROUTINE NO RET"H^AD> 

ENDlf ' 



;SAVE POINTER TO BOARD NAME 
;SKJP OVER JT TO GET COUNT AND 
;MOVE BOARD NAME TO SAVE AREA 

«80ARD.NAME-HEAD>S"XFF00>/256 



«60ARD TAeLE-HEAD>£*XFF00>/256 
JSET BOARD TABLE POINTER 



; BOARD MODE 



;MOVE ENTRY IN BOARD TABLE 

;T0 BUFFER AR(^^ 
«80ARD_BUF-HEAD>£*XFFOO>/256 



;UPDATE BOARD TABLE POINTER 



;END Of TABLE? 



;BCARD NOT FOUND 

.•REPORT ERROR. DON'T RETURN 



|7Z-ENKAa-1,5 .MAIN 
.MAIN. 



21 

11 

02'A8' 
03 OE 

CD 
OOCf 

a 

0A5A' 



3A 
0?A7' 

32 
02AD' 



C9 



0A2C* 



A? 
32 
O^OB* 



21 
04'20' 
06 OE 

Af 

77 
23 

OD 

C2 
0A67' 



0AA5 
0A-!,5 
0AA5 
0A<5 
0A^6 
0AA8 

GAAB 

OAAD 

OAAE 

0A50 

0A51 

OA53 

OA53 

OA53 

0A5A 

0A56 

0A56 

OA57 

0A59 

OA59 

0A5)A 

0A5A 

0A5A 

0A5A 

0A5A 

0A5A 

0A5B 

0A5D 

GA5D 

0A5D 

0A5D 

0A5D 

0A5D 

0A5D 

oa:;d 

0A5D 
0A5D 
0A5D 
0A50 
0A5D 
0A5D 
0A50 
0A5E 
0A5f 
0A61 
0A61 
0A61 
0A62 
0A6A 
0A66 
0A67 
0A67 
0A68 
0A69 
0A6A 
0A68 



15U 
1515 



2002$: 



1516 
1517 



1518 



1519 

1520 
1521 

1522 
1523 



152A 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1552 
1533 
153A 
1535 
1536 
1537 



1538 
1539 



.eyTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.WORD 



.BYTE 

.WORD 

.BYTE 
.WORD 

.BYTE 
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;6FNERATE i CL 2002 NAME 

IFEQ BOARD NAME, BOARD BUF+1,3 ;COMPARE BOARD TO NAME GIVEN 

<H*8> : 1 " 

<BOARD NAME-HEAD>S255 , «BOARD NAMH"HEAD>a*XFF00>/256 

<D*8> T 1 

<B0ARD 8UF + 1-HEAD>&255 , «BOARD BUF + 1-HEAD>&'^XFF00>/256 

<C*8> T 6 , 3&255 

^^0315 

<C0MPARE-HEAD> 

*0302 

<2003$-HEAD> 



2003$ 



LDA BOARD 8UF 

-^072 

<BOARD BUF-HEAD> 

STA " BOARD NUM 

*062 

<BOAR0 NUM-HEAD> 

RET " 

*0311 

ENDIF 



; EQUAL SAVE BOARD ft 



.BYTE 
.WORD 



JMP 

*0303 

<1$-HEAD> 



1$ 



;D0NE 

; GENERATE LCL ;'003 NAME 
;L00P UNTIL ERiiQR OR BOARD 

; FOUND 



DJAG SECTION 

THIS SUBROUTINE GETS THE SECTION PARAMETER OF A DIAGNOSE COMMAND 
AND LOOKS n UP IN A TABLE TO SEE WHETHER IT IS A CPU MICRO CODE 
OR AN 8085 DIAGNOSTIC. IF THE NAME IS NOT FOUND IN THE TABLE IT 
IS ASSUMED TO BE A CPU MICRO CODE DIAGNOSTIC. THE SECTION IS THEN 
LOADED INTO THE APPROPRIATE AREA. 



DiAG SECTION: 
.BYTE 
.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 



CLEAR FABLE MODE 

^^0250 : A 

'^062 

<TABLE MODE-HEAD> 



;with A 



;SET FOR NO TABLE USAGE 



200A$: 



.BYTE 
.BYTE 
• BYTE 
.BYTE 
.WORD 



ZERO TEMP SECTION, SEC LEN ;START WITH CLEAR FIELD 

<H«8> : 1 

<TEMP S£CTION-HEAD>&255 , «TEMP^SECTION-HEA0>&*XFFOO>/256 

<C*8>"! 6 , SEC^LENR255 

^0250 I A ;with A 

MOV M,A 

*0100 ; <M*8> I A 

<H*8> 1 3 

*05 : <8*C> 

*0502 

<200A$-HEA0> 



1?Z-EN<AB-1.5 .MAIN 

I.MAIN. 
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2A 
OAAD' 

2? 
0A19' 

CO 
0E53' 

2A 

0419' 

11 
04'20' 

3A 
0406' 

AF 

CD 
0F75' 



08'5F' 

22 
OAOC 



2A 
040C' 

n 

08'C9' 

07 01 

CD 
0F75' 

22 

040C' 



08C9' 

n 

FF 
C2 
OABS' 



AF 



0A6D 

0A6D 

0A6D 

0A6E 

OA70 

0A70 

0A71 

0A73 

0A73 

0A74 

0A76 

0A76 

0A77 

0A79 

0A79 

0A7A 

0A7C 

0A7C 

0A7D 

0A7F 

0A7F 

OA80 

OA80 

0A81 

OA83 

OA83 

0A83 

0A84 

0A86 

0A86 

0A87 

0A89 

0A89 

0A89 

0A8A 

0A8C 

0A8C 

0A8D 

0A8F 

0A8F 

0A91 

0A91 

0A92 

0A9A 

0A9A 

0A95 

0A97 

0A97 

OAQ^ 

0AQ8 

0A9A 

0A98 

OA'^C 

0A9D 

0A9F 

0A9F 

0A9F 



1540 
1541 



1542 

1543 

1544 

1545 

1546 

1547 
1548 



1549 
1550 



1551 



1552 
1553 1$ 



1554 

1S55 
1556 

1557 



1558 

1559 



1560 
1561 



.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 

.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 

.BYTE 
.WORD 

.BYTE 
.WORD 



■ BYTE 
.WORD 
.BYTE 
.BYTE 
.BVTE 
.WORD 



.BYTE 



LHLD TTBUF PNT 

^052 

<TTBUF PNT-HEAD> 

SHLD " TEMP WORD 

*042 

<TEMP WORD-HEAD> 

CALL " SKIP TO SPEC 

'^0315 ■ " 

<SKIP TO SPEC-HEAD> 

LHLD " Temp word 

*052 

<TEMP W0RD-HEAD> 

LXl "■ OJEMP SECTION 

<D*8> ! 1 

<TEMP SECTI0N"HEAD>&255 

LDA " SKIP CNT 

*072 

<SKIP CNT-HEAD> 

MOV C,A 

•'OlOO ! <C*8> ! A 

CALL MOVER R 

^0315 

<M0VER_R-HEAD> 

LXl H,SEC TABLE 

<H*8> I 1 

<SEC TA8LE-HEAD>&255 

SHLD" TABLE PNT 

*042 

<TABLE PNT"HEAD> 



SAVE POINTER TO SECTION 
SKIP OVER IT TO GET COUNT 
MOVE NAME TO SAVE AREA 



«TEMP.SECTI0N-HEAD>S*XFF00>/256 



;SECT NAME LENGTH 



«SEC TABLE"HEAD>6*XFF00>/256 
" ;RESET TABLE POINTER 



LHLD TABLE PNT 

^052 

<TABLE PNT-HEAD> 

LXl " D, SECTION FLAG 

<D*8> ! 1 

<SECT10N FLA6-HEAD>&255 , 

MVI CSEC LEN+1 

<C*8> I 6 , SFC LEN+ia255 

CALL MOVER R 

*0315 

<MOVER R-HEAD> 

SHLD " TABLE PNT 

'^042 

<TABLE PNT-HEAD> 



;MOVE ENTRY IN SEC TABLE TO 

.'BUFFER AREA 

«SECTION FLAG-HEAD>&'^XFF00>/256 

;COONT 

;UPDATE SECTION TABLE POINTER 



SECT10N_FLAG,HEX.FF 



IFEQI 

^^072 

<SECTI0N FLAG-HEAD> 

*0376 

HEX FF 

*03D2 

<2005S-HEAD> 



;END OF TABLE 



CLEAR 
*O250 



SECTION FLAG 
A 



;with A 



;MAKE WCS DEFAULT AREA 



I 



ZZ-ENKAB-1.5 .MAIN 

.MAIN. 



52 


OAAO 




08C9' 


0AA1 






0AA3 


1562 


21 


0AA3 




0A»20' 


OAAA 






0AA6 


1563 


11 


0AA6 




08'CA' 


0AA7 






0AA9 


156^» 


06 OE 


0AA9 






OAAB 


1565 


CD 


OAAB 




OF 75* 


OAAC 






OAAE 


1566 




OAAE 


1567 


CD 


OAAE 




1A8B* 


OAAF 






0AB1 


1568 


C9 


OABI 






0AP2 


1569 




0AB2 


1570 


C5 


0AB2 




0AC7' 


0AB3 
0AB5 






0AB5 


1571 




0AB5 


1572 


21 


0AB5 




0V20' 


0AB6 




11 


0AB8 




08'CA' 


0AB9 




06 OE 


OABB 




CD 


OABD 




OOCF' 


OABE 




C2 


OACO 




0AC7' 


0AC1 






0AC3 


1573 




0AC3 


157^ 


CD 


0AC5 




M8B' 


OAC^ 






0AC6 


1575 


C9 


0AC6 






0AC7 


1576 




0AC7 


1577 




0AC7 






0AC7 


i:)78 




0AC7 


1579 




0AC7 






0AC7 


1580 




0AC7 


1581 


C3 


0AC7 




0A89 


0AC8 






OACA 


1582 




Oaca 


1583 




OACA 


158A 




OACA 


1585 




OACA 


1586 




OAfA 


1587 



2005$: 



2007$: 



2006$: 



.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.BYTE 

.BYTE 

.BYTE 
.WORD 



.8YTF 
.WORD 

.BYTE 



.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.WORD 



,6YTf 
.WORD 

.BYTE 



.BYiE 

.WORD 



D 4 
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^062 

<SECT10N FLAG-HEAD> 

LXI n.TEMP SECTION 

<H*8> : 1 

<TEMP SECTION-HEAO>fc255 

LXI " D, SECTION NAME 

<D*L> ! 1 

<SECT10N NAME-HEAD>&255 

MVI c,SEC LEN 

<C*8> i 6 . sEC LEN&255 

CALL MOVER R" 

^0315 

<MOVER..R-MF'AD-' 

CALL '. OAD SECTION 

*0315 

<LOAD SFr.Tl{)N-H£AD> 

*o3r 

ELSt 

<2006^-HtAD> 



;NAME IS NOT FOUND IN TABLE 

«T£MP SECTION-HEAD>£*XFF00>/256 
TSO LOAD IT INTO WCS IF IT 

«SECTION NAME-HEAD>&*XFF00>/256 
;IS"FOUND ON THE TAPE 



;EXIT FROM SEARCH LOOP 



; GENERATE LOCAL SYMBOL NAME 
T£MP_SECTION,S£CTION_NAME.SEC.LEN 

«TEMP_SECTION-HEAD>S*XFF00>/256 
«SECTION NAME-HEAD>&*XFF00>/256 



<H*c: ; 1 

<TfM'' br{.TION"HEAD>&255 

<D*8' ' 1 

<;SfcCTiOi\' NAME-HEAD>B255 

<C*8> : 5 . SEC LEN&255 

*o3r' 

<.\.eMPARE-HEAD> 

<rc'rr'"*-HEAD> 

CALi LOAD SECTION 

<LU, ; SHCTION-H£AD> 
RET " 

*03-' 



ENr f' 



■ yr- 1 
*0*'ii^ 



$ 



;EXIT FROM SEARCH LOOP 

; GENERATE LCL 2007 NAME 

;GENERATE LCL 2006 NAME 
;LOOP UNTIL SECTION FOUND 



************* **t**>t***i*ik***********(*t ************************************ 

DIAG TEST 

THIS"SUBR0UMNF IN^uTj THE TEST PARAMETERS OF THE DIAGNOSE KEYWORD 

ONE TEST NUMBFR MfcANS EXECUTE THAT TEST ONLY 



ZZ-ENKAB-1,5 
.MAIN. 



.MAIN. 



3A 
0255' 
OF 
DA 
OAEV 



3A 
058B* 
OF 
DA 
OAET 



AF 
32 
02EA' 

28 06 

r3 

0CA5' 



AF 
32 
OAOB' 



CD 
0D9B' 



02 06 

3A 
02E2' 

B7 

(-2 
OCAS' 



3A 
06/9' 



OACA 
GAGA 
OACA 
OACA 
OACA 
OACA 
OACB 
OACD 
OACE 
OACF 
OADi 
0AD1 
OADI 
0AD2 
OADA 
0AD5 
0AD6 
0AD8 
0AD8 
0AD8 
0AD9 
OADA 
OADC 

oad: 

OADE 

OADE 
OADF 

OAEl 

OAEl 

0AE1 

OAEl 

OAEl 

OAEl 

OAEl 

OAEl 

0AE2 

OAF 3 

0AE5 

0AE5 

0AE5 

OAF 6 

DAE 8 

0AE8 

OAF 8 

OAEA 

OAEA 

OAES 

OAEO 

OAED 

OAEE 

OAEE 

OAEF 

0AF1 

OAFl 

OAn 

OAF? 

0AF4 



1588 
1589 
1590 
■1591 
1592 
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; TWO TEST NUMBERS MEANS EXECUTE THE TESTS BETWEEN THAT RANGE INCLUSIVE 



37 : 
(1) = 



1593 
159A 



1595 

159o 



1597 
1598 

1599 

1600 
1601 

1602 
1603 



160A 
1605 



1606 

1607 

1608 



1609 

i610 



1611 
161? 



1613 



DIA6 TEST: 

.BYTE 
.WOF?D 
.BYTE 
.BYTE 
■ WORD 



.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 



.BYTE 
.BYTE 
.WORD 

.BYTE 

.BYTE 
.WORD 



2009S: 
2008$: 



.BYTE 
.BYTE 
.WORD 



.BYTE 
.WORE' 



.BYTE 

.8YTF 

.WORLj 

.F^YTc 

.BYTE 

.WORD 



.BVTF 
.WDiiD 



IFN lONSOLE TFST 

^072 

<CONSOLE TEST-HEAD> 

^V^7 

*LO-^2 

<2008$-HEAD> 

IFN WCS LOADED 

*072 

<WCS LOADED"HEAD> 

*017 

*0332 

<2009$-HEAD> 

CI EAR EXECUTE 

'^0250 ! A 

''06? 

<FyECUTF-HEAD> 

MVJ B,<^X38> 

<e*8> ! 6 , *X28&255 

JMP ERROR ROUTINE 

*030? 

<EPROR ROUTINE NO RET 

ENDIF 



;IF CONSOLE TEST, SKIP THIS 



;ELSE SEE IF WCS LOADED 



;with A 

N0_RET 
•HEAD> 



; IF NOT, REPORT ERROR 
.•CLEAR EXECUTE FLAG TO PROMPT 



tNOlF 



CLEAR 
*0?:JO 

<TABLE 

C/^Ll. 

< INPUT 

MVI 

<B»8> 

LDA 

•^07? 

xFRROR 

ORA 

'^O?60 

vNZ 

*05J2 

<FHROR 

LIH 
M72 
^iNPl'T 
3TA 



TABLE MODE 

! A 

^MODE-HEAD> 

INPUT^NUM^IF 

^NUM_IF-HEAD> 

B,<*X02> 
: 6 , '^X026255 
ERROR 

-HEAD> 

A 
I A 

FRROR.ROUTINE, 

,ROUTINE_NO^RET 

INPUT_NUM+3 

N'JM + 3"HEAD> 
" TEST_NUM1 



;with A 



;CODE FOR NO TEST CODE ERROR 
;REPORT ERROR 

; GENERATE LCL 2009 NAME 

;GENERATE LCL 2008 NAME 
;SET TO NO TABLE MODE 

;LOOK FOR FIRST TEST NUMBER 

;N0 FIRST NUMBER - ERROR 
;GET ERROR FLAG 

;SET CONDITION CODES 
.NO^RET ;REPORT IF ERROR. DON'T RETURN 

■HEAD> 

;FIRST NUMBER IS FIRST TEST 

;SAVE IT 



L. 



2Z-ENKAB-1.5 

.MAIN, 



.MAIN. 



52 
0A27- 



CD 
0D98' 



3A 
0?H2' 
OF 
D2 
0B07' 

3A 
0A^7» 



C3 
080A* 



3A 
0679' 



32 
0A28' 



C9 



50 3E 
32 



C9 



OAF*; 

OAFb 

OAF 7 

OAF 7 

OAF 7 

OAFS 

OAFA 

OAFA 

OAFA 

OAFB 

OAFD 

OAFE 

OAFF 

0B01 

OBO'I 

0B02 

OBOA 

OBOA 

080A 

0B05 

0B07 

0607 

0B07 

0B07 

0B08 

OBOA 

OBOA 

OBOA 

OBOA 

OBOA 

OBOB 

OBOD 

OBOD 

OBOD 

OBOE 

OBOE 

OBOE 

OBOE 

OBOE 

OBOE 

OBOE 

OBOE 

OBOE 

OBOE 

OBOE 

OBOE 

OBOE 

OBOE 

OBOE 

OBOE 

OBOE 

0B10 

0810 

0811 

0815 

0815 

0813 



1614 
1615 



1616 
1617 



1618 



1619 
1620 



1621 
1622 



1623 

162A 
1625 



1626 
1627 

1628 
1629 
1630 
1631 
1632 
(633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 

1644 



1645 
1646 



2010$; 



2011$: 
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;6ET SECOND NUMBER IF THERE 



;N0 SECOND NUM - USE FIRST TEST 



.BYTf: "Ddt^ 

.WORD <TEST_NUM1-HEAD> 

CAL: INPUT NUM IF 

.BYTE \0S'o " " 

.WORD <iNPUT.NUM^IF-HEAD> 

IF ERROR 

.OVTF '^072 
.WORD <f:RftOR-HEAD> 

.EVTF *o:/ 

.BYTE '05?2 

.WORD <20I0$-HEAD> 

lr>^ TEST NUM1 

.BYTE -^072 
.WORD <TEST^NUMl-Ht:AD> 

EL3r 

.BYTE U^303 

.WORD <:201i$-HEAD> 



iDA INPUT NUM+3 

,8YTf "07? 
.WORD "^ INPUT NUM+3-HEAD> 

lUO\f 



'.U TEST NUM2 

.6YTE ^Oc. 
.WORD <vrbT_NUM2-HEAD> 

.BYTE *OjM 



DIAG CONTIN 

THIS SU8KOUTINI: HANDLES THE DIAGNOSE CONTINUE KEYWORD 

A CONTINUE WILL CAUSE THE TESTING TO 60 TO THE END OF THE SECTION 

NOTE: - - TU Bt ^>FFCTIVE THIS KEYWORD MUST BE GIVEN AFTER THE TEST 
KEVWOhH AND THE TEST KEYWORD MUST HAVE ONLY 1 PARAMETER 
U TM TESl PARAMETER IS GIVEN AFTER THE CONTINUE KEYWORD 
IT W!!L BE CANCELED OUT. 



, GENERATE LOCAL SYMBOL NAME 
;SAVE ENDING TEST NUMBER 

;GENERATE LCL 2011 NAME 



DIAG CONTIN; 
.BYTE 

.BYTE 
.WORD 



.8YTfc- 



A, HEX 50 

6 , hFX 508255 

TEST NUW2 



MV! 

<A*S> 

'iTA 

<r':'-.r^NUM2-HEAD> 
''0511 



;MOVE LAST POSSIBLE TEST 
;T0 ENDING TEST NUMBER 



ZZ-ENKAB-1.5 
.MAIN. 



.MAIN, 



CD 
0D9B' 



C3 06 

3A 
02E2' 

87 

C? 
OCAS' 



5A 
0383' 
OF 
02 

0832' 



f? 3E 

52 
03EA' 

32 
03E8' 



C3 
0838' 



2A 
0678' 

22 

03EA' 



OBU 

OBU 

08H 

OBU 

OBU 

03U 

OBU 

OBU 

OBU 

OBU 

OBU 

OBU 

OBU 

0815 

0817 

0817 

0817 

0819 

0819 

OBU 

OBIC 

OBU 

081 D 

081 D 

081 E 

0820 

OBcO 

0B20 

0821 

0823 

082A 

0825 

0827 

0827 

0827 

0629 

0829 

082A 

082 C 

0B2C 

082D 

082F 

0B2f 

082F 

0830 

0832 

0832 

0832 

0632 

0833 

0835 

0835 

0836 

0838 

0838 

0638 

0338 



16A7 
16A8 
16A9 
1650 
1651 
1652 
1653 
1654 
1655 
1656 
1657 
1658 



1659 
1660 

1661 



1662 
1663 



166A 
1665 
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******************* **********************(***********»******************** 

DIA6 PASS 

THIS SUBROUTINE INPUTS THE DIAGNOSE PASS COUNT. 

IF NOT SPECIFIEO THE PASS COUNT WILL DEFAULT TO ONE. 

IF THE PASS COUN'T IS SPECIFED AS -1 THIS INDICATES A CONTINUOUS LOOP 

*****»********'V***^*************************** ******* ******************* 



39 
(1) 



1666 
1667 

1668 
1669 



1670 
1671 



1672 
1673 



167A 



1675 
1676 

1677 



DIA6 PASS: 

.BYTE 
.WORD 



.BYTE 

.BYTE 
.WORD 

,8YT£ 

.8YTE 
.WORD 



.8YTt 
.WORD 
.8YTE 
.8YTE 
.WORD 



.8YTE 

.8YTE 
.WORD 

,8YTE 
.WORD 



2012$? 



.BYTE 

.WORD 



.BYTE 
.WORD 

,BYTt 
.WORD 



CAli INPUT NUM IF 

*03i : 

<IN'^ ■:.NUM_IF-HEAD> 

MVl B,<'*X03> 

<B*y> : 6 , '^X03&255 

LDA ERROR 

*072 

<ERRiN'*HEAD> 

ORA A 

*O260 : A 

m ERROR ROUTINE^NO^RET 

^OSOc-: 
<ERR>^„ROUTINE,NO,RET-HEAD> 

IF MINUS 
*0/" 

<MIN',r>HEAD> 
*01^ 

<'^012t-HEAD> 

MVI A, HEX FF 

<A*J:^ ! 6 , Hfx FF&255 

STA PASS CNT 

n)62 

<PAS:. CNT-HEAD> 

STA ■" PASS CNT + 1 

*06? 

<PA<;._CNT + 1-HEAD> 

ELSF 

'^051:^ 

<20m"HEAD> 



[Mil INPUT NUM+2 

<I\'f'IT NUM*2-HEAD> 

SHLT " PASS CNT 

''O't: 

<PA* j CNT-HEAD> 



;6ET THE PASS COUNT 

;PASS CUUNT ERROR 
;GET ERROR FLAG 

;SET CONDITION CODES 

;REPORT IF ERROR. DON'T RETURN 



;SET TO INFINITE PASSES 



2013$: 



END 



1 tr 



.-GENERATE LOCAL SYMBOL NAME 



;MOVE 2 BYTES PASS COUNT 



.•GENERATE LCL 2013 NAME 



L -. _.. 



r 



7Z-ENKAB-1.5 .MAIN 
.MAIN. 



(.9 



AF 
3C 
32 
03BE' 

CD 
0A5D' 

AF 
32 
03BE' 

C9 



OA 06 



3A 

003 A' 

87 

CA 
OC^A' 



3A 

0255' 
OF 
DA 

0359' 

CD 



0838 

0838 

0839 

0839 

0839 

0839 

0859 

0839 

0839 

0839 

0B39 

0839 

0839 

0B39 

083A 

0838 

083C 

0B3E 

0B3E 

083F 

0BA1 

08*; 1 

08A? 

08^3 

0BA5 

0845 

0846 

0846 

0846 

0846 

0846 

0846 

084^ 

0B4o 

0846 

0846 

0846 

0846 

0848 

0848 

0848 

0849 

0648 

0B46 

084 C 

084 C 

084 D 

084 F 

084 f 

084F 

084 F 

0850 

0852 

0853 

0854 

0856 
0856 



16/8 

1679 
1680 
1631 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 



1690 
1691 

1692 

1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 

1704 
^705 

1706 
1707 



1708 
1709 
1710 



.BYTE 
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; LOADER 

; THIS ROUTINE t.OAIS A IMAGE INTO WCS OR THE CONSOLE BUT DOES 

; NOT START IT ANO DOES NOT INITIALIZE IT 

LOADER: 





SB! NOINIT 


.BYTE 


'•C2'?0 : A 


.BYTE 


*04 I <8*A> 


.BYTE 


*U6.' 


.WORD 


<nc;nit-head> 




CAi.! DIAG SECTION 


.BYTE 


^0? ! 5 


.WORD 


<DI^G SECTION"HEAD> 




CLEAR" NOINIT 


.BYTE 


'^O.'SU : A 


.BYfE 


"06^ 


.WORD 


<N0IN1T-HEAD> 




RE' 


.BYTE 


*n5ii 



;with A 



;with A 



CONT COMMAND 

THE fONTINlJE CC^WAND ALLOWS CONTINUATION OF TEST EXECUTION AFTER 

TESTING HAS eff.N HALTED 



CONT COMMAND: 
" .BYTE 



.SYr: 

.WORD 



1711 



.BYTE 

.BYTE 
.WORD 



■ BYTE 
.WO.'^O 
.BYTE 
.BYTE 

,t;jRD 
.BYTE 



Mv; B,<*X04> 
<(3*.^> ! 6 . *X046255 

tOA CONTINUE 

-rjA'TINUE-HEAD> 
0**A A 
n)t^'.)0 ! A 

ERROR ROUTINE 

<r.Kr?bR ROUTINE-HEAD> 



iTN CONSOLE TEST 



;ERROR CODE U CONTINUE CLEAR 

;GET CONTINUE FLAG 

;SET CONDITION CODES 

;N0 CONTINUE AT THIS POINT IF 



CONTINUE FLAG IS CLEAR 
ELSE CONTINUE ON 
DO WR RESTORE IF 8085 



'ifnSOLE TEST-HEAD> 

*C / 

'Vr552 

<:0n$-HEA0> 

CA'. I RESTORE WR 

^05 '5 



; TESTS ARE NOT EXECUTING 



ZZ-EN-CAB-1.5 .MAIN. 

.MAIN, 



OCOA' 


0B57 






0B59 


1712 




0B59 






0B59 


1713 




0B59 


1714 


3D D3 


0859 






08 5B 


1/15 




OB 58 


1716 


3A 


0B5B 




0250' 


085C 






0B5E 


1717 


32 


0B5E 




02EA* 


0B5f 






0B61 


1718 




0861 


1719 


21 


0861 




OC*BE' 


0862 






0864 


1/20 


n 


086A 




OO'BB' 


0865 






0867 


1721 


CD 


0867 




0F5F' 


0868 






0B6A 


1722 




0B6A 


1723 


?A 


086A 




00C8' 


0868 






0B6D 


1724 


22 


0B6u 




OOC^* 


086E 






0B70 


1725 




0870 


1726 


3A 


0870 




0251' 


0871 






0873 


1727 


8/ 


08/5 






0B74 


1 7'a 


C^ 


0S7A 




110E* 


0875 






0877 


1729 




0877 


1730 


AF 


0877 




3C 


0878 




32 


0879 




0256* 


0B7A 






0B7C 


1731 




08 7C 


1732 


cv 


0O7C 






0670 


1733 




0870 


^ ^ ' 




0870 


, j'> 




0870 


1756 




0870 


1737 




0870 


1730 




087:^ 


1739 




0870 


17^0 




0870 


1741 



2014$: 



*WOR0 



.BYTE 



.8VT[ 
.WORD 

.BYTE 
,WOR0 



.BYTc 
.BYTE 

.eYTE 
■ BYTE 

.BYTE 
.WORD 



,8Y1E 

.wor:) 

.BYTE 
.WORO 



.BYTE 
.WORD 

.BYTE 

,6YTh 
.WORD 



.8YTE 
.BYTE 

.BYTE 

.word 



.BYTE 
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<Rb STORE WR-HEAD> 
ENDIF 



OUI 



SETLIT 



*0!.-3 , SETLlTa255 



LiVA C EXECUTE 

-07? 

<C LXECUTf-HEAD> 

stS execute 

<FX,CUrE-HEAD> 



;GENERATE LCL 2014 NAME 

;TURN RUN LITE BACK ON 
♦•register A 

;RESTOR£ FLAGS 



;R£STORE CSR 



L^I H,C0Nr SAVE CSR 

<H«M> I 1 

^-CONT SAVE CSR"HEAO>&255 , «CONT SAVE^CSR-HEAO>S*XFFO0>/256 

I XI " 0,5AVED_CSR 



<D*':i> 



1 



<SAVFD C:;R"HEA0>&255 
CALi MOVER 3 R 

*03!'; 
<MD.'tR.3_R-HEA0> 

LHLi; lONT SAVE UPC 

' (OhJ SAVE UPC-HtAO> 
SMil^ " SAVEO UPC 

*04? 

<SA\EO„UPC-HEAD> 

L')A I RUNNING 

<C RiJNNJNG-HEAD> 

OR^ A 

*CJi'('0 1 A 

CNZ RcSTART CPU 

':RF-rAf(T_CPU-HEAD> 

'jn CONT DONE 

n\^so I A 

**04 ' <8*A> 

<^CONT,DONL-HEAD> 

RFT 



«SAVED_CSR'"H':- /> *XFF00>/256 



;RESTOR£ UPC 



;GET OLD RUNNING FLAG 

;SET CONDITION CODES 
;RESTART IF SET 



;with A 



EXEC.SUB 

THIS ftOUMMc EXEC'TES A SUBROUTINE IN WCS WHICH PERFORMS A SPECIFIC 

FUNCTION. 



ZZ-ENKAB-K5 .MAIN 
.MAIN, 



n 06 

CD 
0C2A' 



7C 

65 

6F 

22 
0407' 



CD 
lOFF" 

CO 
1806' 



C9 



F8 06 
12D8' 



02 06 

CD 
1?CE' 



6F 06 

(D 
12!>8' 



0B7D 

0e7D 

0B7D 

0B7D 

0B7D 

G87D 

0B7D 

0B7F 

0B7F 

0B80 

0B82 

0882 

0882 

0B82 

0883 

0883 

0884 

0884 

0885 

0885 

0886 

0888 

0888 

0888 

0889 

0B88 

088B 

088C 

088E 

088E 

0B8E 

088F 

088F 

088F 

088F 

088F 

088F 

088F 

088F 

088F 

088F 

0891 

0891 

0892 

089A 

089^ 

0894 

0396 

0896 

0897 

0899 
0899 
0899 
0898 
0898 
089C 
0Q9E 



1742 
1743 
1744 
1745 
17i,6 
1747 

1748 



1749 
1750 
1751 

1752 

1753 

175^ 



1755 
1756 



1757 



1758 
1759 

1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 

1768 
1769 



1770 
1771 

1772 



1773 
1774 

1775 



776 
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INPir CONDITIONS 

H>L = ADDRESS OF WCS SUBROUTINE 



EXliC_3U8; 



■ BYTE 
B^TE 



.Bvri^ 

.b^E 
iwOFvD 



.8Y 
.WORP 

.8YTE 
,WORD 



MVl B,<-'X!1> 

<B*8> i 6 , *ylU255 
CALL CHECK WCG LUUFD 

*0315 ' ■* 

<CHECa WCS LOADtD-;!E/.D> 



A,H 

<f\^B> ! f( 
H.L 
<H*8> I L 

L.A 

<L*8> : A 

STARVING JPC 



MOV 

'^OIOO 

MOV 

*0100 

MOV 

*0100 

SHLD 

*042 

<STARirJG u."'*C-riEAD> 



;ERROR CODE IF WCS NOT LOADED 
;CHECIC FOR WCS LOADED SET 

; RETURN IF OK 

;GET SUBROUTINE ADDR 



CM* S1ART CPU 

'^0;"15 

<''^TARr CPU-HEAD> 

CALl ■" S'J?„ATTENTIUN 

'^0315 

<SUd,Ai rENTION-HEAD> 

RET 
•^0311 



; START THE SUBROUTINE 
;WA1T FOR EXIT 



.BYTE 

*************** *t*****H*******^*******r****<t*<k*A<i***«i*'**<{^**********-******* 

CLEAR^DEFAULT 

THIS Routine sets the flags to their default values 

********^*******************************************-^*****«»«****»**«***** 



clear DEFAULT: 
" .BYTE 

.BYTE 
.WORD 



.BYTE 

.BYTE 
.WORD 



.BYTE 

.BYTE 
.WORD 



MVI B,BELL^C.DEF 
<B*8> ! 6 , BECL.C.DEFS255 
CALL CLEAR LS STAT 
^0315 
<CLEAR^LS^STAT-HEAD> 

MVI 8.NER S.DEF 
<B*8> I 6 , NER S DEF6?55 
CALL SET_LS_5TAT 
*0515 
<SET^LS,STAT-HEAD> 

M^I B^OOP.COM^C.DEF 

<B*8> ! 6 , LOOP COM C DEF&255 

CALL CLEAR LS STAT 

''OSIS 

<CLEAR Lj STAT-HEAD> 

MVI " 8:hALT,S_DEF 



;CLEAft BELL 



SET NER 



;B1T TO CLEAR LOOP COMMAND 



;SET HALT 






.MAIN. 



08 06 

CO 
12CE' 



AF 
32 

0057' 

BE 06 

CD 
12D8' 



AF 
OA^-C 



EF 06 

CO 
12D8' 



7F 06 

CO 
1^08* 



C9 



5A 

Q212' 

CC 
0C1D' 



0B9E 
OBAO 
OBAO 
0BA1 
0BA3 
0BA3 
0BA3 
OBAA 
08A5 
08 A 7 
0BA7 
0BA9 
08A9 
OBAA 
OBAC 
OBAC 
OBAC 
08 AD 
08AE 
0860 

oeeo 

0880 
0882 
OBB? 
0883 
08B5 
0885 
0885 
0887 
0887 
06B8 
0B8A 
0B8A 
088A 
0888 
0886 
0888 
088B 
0888 
0886 
0886 
0888 
0886 
0886 
0686 
0866 
0886 
0886 
088C 
088E 
066E 
088F 
CBBF 
08C0 
0BC2 
08C2 

oer? 



1777 



1775 
1779 



1780 
1781 



178: 
1783 



178^^ 
1785 

1786 



1787 
1788 

1789 



1790 
1791 

1792 
1793 
1 79<; 
1795 
1796 
1797 

1798 
1799 
1800 
1801 
1802 
180? 
180^ 



180S 
1806 



1807 
1808 
1809 



U-JUN-''98A Fkhe 1 Frame KA Seguence A9 

U-JUN-1984 16:08:17 VAX-11 Macro V03-OT Page 43 

U-JUN-198A 15:49:51 DRB0:CBALL.ENKABJENKAB.MAC;3 <1) 

.evTE <B*8> ! 6 , HALT_S_DEF&255 



.BYTE 
.WORD 



.8YTE 
.BYTE 
.WORD 

.BYTE 

.8YTF 
.WORD 



.BYTE 
.BYTE 
.WORD 



,8YTE 

.BYTE 
,WORD 



.BYTE 

.PYTE 
.WORD 



.BYTE 



CALL SET LS.STaT 

*0315 

<SET_LS.STAT-HEAD> 

CLEAR ERROR CON 

*O250 ! A " ;with A 

•^062 

<£RR0R CON-HEAD> 

MVi ■ B,LOOP^C,DFF 

<B*8> : 6 . L0i3P.C DEF&255 

CALL CLEAR LS STAT 

"0315 

<CLEAR LS STAT-HEAD> 



; CLEAR LOOP 



CLFAR TRACE 
*O250 I A 
■^062 
<TRACE-HEA0> 



;with A 



'1V1 B.SER C.DEF 
<B*8> i 6 . SER,C,DEF&255 
CALL CLEAR l5 STAT 
*0315 
<CLEAR_LS.STAT-HEAD> 

MVI B,SPECJAL^C,DEF 
<B*8'> ! 6 , SPEC]Sl,C,DEF8.255 
CALL CLEAR LS STAT 
-^0315 
<CLEAR_LS^STAT-HEAD> 

RET 
'^0311 



;CLEAR TRACE 



; CLEAR S£R 



; CLEAR 5P 



INT CLEAR PAR 

THIS SU8R0UTINE IS CALLED FROM BUTH THE COMMAND CLEAR^PARITV AND FROM 

THE INTERNAL CLEAR PARITY REQUEST 

IN^UT CONDITION: 

FRROR is set if no ADDRESS IS FOUND 

^ ftUft* ft* ***»**«*********wA*************»****ftft************ ***************** 



int clear par: 
.5yte 

.WORD 
.BYTE 

.8YTE 

.WO^^D 



LDA ERROR 

*072 

<ERR0R-HEAD> 

ORA A 

"0260 : A 

Zl CHANGE WCS 

*03U 

<CHANGE WCS-HEAD> 



SET 



PAR ON 



;GET ERROR FLAG 

;SET CONDITION CODES 
;CHANGE PARITY TO GOOD IF 

; ADDRESS GIVEN 

;SET FOR HALT ON PAR ERR 



r 



i/Z-ENKAB-I.S 



•MAIN. 



AF 


0BC2 




■ BYTE 


*O250 : A 


3C 


08C3 




.BYTE 


*0A : <8»A> 


32 


oacA 




.BYTE 


'^062 


03D6' 


08C5 
08C7 


1810 


.WORD 


<PAR.ON-HEAD> 




08C7 


1811 




RET 


r9 


0BC7 
^3C8 
.y8C8 


1812 
1813 


.BYTE 


*0311 



L A 
U-JUN-1984 Fiche 1 Frame L^ Sequence 50 

U-JUM-198A 16:08:17 VAX-II Macro V03-0T Page 
U-JUN-198A 15:49:51 DRB0:CBALL.ENKA63ENKAB.MAC;3 

;with A 



44 
(1) 



IZZ-ENKA8-1.5 
:.MAIN. 



.MAIN. 



22 
02S2' 



3A 
006A' 
OF 
02 
OCO^' 



2A 

?E 

E6 
7f 

21 

AE 

21 

AE 

28 



0BC8 
0BC8 

oec8 

0BC8 
0BC8 
0BC8 
0BC8 
0BC8 
0BC8 
08C8 
0BC8 
0BC8 
0BC8 
08C8 
0BC8 
0BC8 
08C8 
OBCS 
06:8 
08C8 
08C8 
0BC8 
0BC8 
0BC8 
08C8 

oec8 

08C9 

OBCB 

0BC8 

08C8 

OBCC 

OBCfc 

OBCf 

OBDO 

08D2 

08D2 

08D2 

08D3 

D805 

GBD5 

08D6 

08D6 

08D7 

0808 

0808 

0609 

08D9 

080A 

oeoA 

0808 
0808 

080 C 
080 C 
O80C 

oeoD 

0800 
080E 



1815 

1816 

1817 

1818 

1819 

1820 

1821 

1822 

1823 

1824 

1825 

1926 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

183A 

1835 

1836 

1837 

1838 

1839 



18A0 
18A1 
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**************************************************************************** 

MISC SUBROUTINES 

**************************************************************************** 

PARITY CALC 

THIS ROUTINE CALCULATES PARITY FOR THE WCS WORDS 

AND PLACES IT IN BIT 23 OF WCS WORD IF THE PARITY SELECTOR IS SET 

TO BAD PARITY AS USED IN STOP DN MICRO MATCH THE PARITY WILL BE 

CHANGED TO BAD PARITY IN BIT 23 OF CSR.VALUE 

INPUT CONDITIONS: 

H+L ADDRESS OF 24 BIT WORD TO CALC PARITY ON 

PARITY ON PARITY CALCULATING ENABLE FLAG 

WCf.BAP^PARITY INDICATES THAT THIS WCS WORD IS TO HAVE BAD PARITY 

OUTPUT CONDITION: 

WCS BAD PARITY IS CLEARED IF BAD PARITY AND WCS CALC WERE SET 
PARTTY^ON SET FOR PARITY CALCULATION 



1842 
1843 



1844 

1845 

1846 
1847 

1848 

184^ 

1850 
1851 

185? 

1853 



PARITY CALC: 
" .BYTE 
.WORD 



.BYTE 
■ WORD 
.BYTE 
.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 

.BYTE 
.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 
.BYTE 



SHLD CALC ADD 

^^042 

<CALC,ADD"HEAD> 

IF PARITY ON 

*072 

<PARITY ON-HEAD> 

*017 ~ 

*0322 

<^2015$-HEAD> 

LHLD CALC ADD 

-^052 

<CALC ADD-HEAO> 

MOV " A,M 

*0100 I <A»8> I M 

AN I 

*0346 

HEX 7F 

INX' 

<H*8> 

XRA 

'^0250 

INX 

<H*8> 

XRA 

*O250 



;SAVE INPUT POINTER 



;1F PARITY CALC ENABLED 



HEX_7F 



OCX 

<H*8> 

OCX 

<rH*8> 

MOV 



H 
3 
M 
M 
I-! 
3 
M 
M 

H 

n 

H 
A,M 



;with A 



;with A 



;GET FIRST BYTE 

;AND OUT CURRENT PARITY BIT 

;XOR WITH SECOND AND THIRD 
;BYTES OF 24 BIT WORD 

;MOVE POINTER BACK AND 
;GET THE HIGH BYTE 



:?:"E\KAB-1.5 .MAIN. 
'.MAIN. 



7E OBDE 
OBDF 
OBOF 

EA OBDf 
08E7' OBEO 
0BE2 
OBE? 
08E2 
08E3 
OBE-; 
08EA 
OBEA 



E6 

7F 



^6 
80 



i5 

08EV* 0BE5 
08E7 
C8E7 
0BE7 
08E7 
08E8 
0BE9 
0BE9 
08E9 
0BE9 
06E9 
08l9 
08EA 
OBEA 
OQEA 
08E8 
08EP 
06EE 
OBEF 
C8F1 
0QF1 
08F1 
08F.? 
08F4 

oeF5 

0BF6 
08F8 
G8F8 
08F9 
08F8 
08F8 
06FC 
08FC 
OBFD 
08FD 

oe^E 

OQFE 

08fF 

08FF 

occo 
ccoc 

CCO' 
0rO2 



7? 



3A 

058A* 
Of 
D2 

0C04* 



5A 
0C6E' 

OtOA' 

?A 
Q25r 

7t 

77 

?F 
U 



'lObE 



185^ 
1855 



1856 
1857 



1858 
1859 



1860 
1861 



186? 
1863 

186*. 

1865 

1866 
1867 



2016S: 



2017$: 



1868 
1869 



1870 



18^1 
187? 
1873 
1874 



18 



7c 



'876 



?S77 



.BYTE 



.BYTE 
.WORD 



,8YTE 
.BYTE 



.8YTE 
.WORD 



.BYTE 
.8YTE 



.8YTE 



.^YTE 
.WORD 
.BYTE 
.BYTE 
.WOf*D 



.BYTE 
.WORD 
.BYTE 
.BVTE 
.WORD 

.BYTE 

.WORD 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BvrE 
.BYTE 
.WORD 
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'0100 



1A-JUN-198A 15:49:51 
<A*8> ! M 



IFPO 

*0352 

<2016$-HEAD> 



AN I 
"0346 
HEX 7? 



HEX 7F 



ELSE 

*O303 

<2017$-HEAD> 



ORl 

•^0366 

HEX^SO 

ENOIF 



MOV 
*0100 



HEX.80 



M,A 
<M*8> ! 

WCS_CALC 



r:'n: 



IF 

"072 

<WCS CALC-HEAD> 
-017" 

*0322 
<2018$-HEAD> 

IF WCS BAD PARITY 

^07? ~ ■ 

<WCS BAD PARJTY-HEAD> 

*017" 

"032? 

<2019$-HEAD> 

LHLD CALC ADD 

"052 

<CA^C ADD-Ht*AO> 

MOV " A,M 

*oioo : <A*8> : M 

RAL 
*027 

CMC 
*077 

RAR 
*037 

MOV 

*'0''OC 

'lEAR 

"0250 

*062 

<WfS BAD PARITY-HEAD> 

CNOir " 



M,A 

<M»8> 1 A 

WCS BAD PARITY 

A " " 



DRB0:CBALL.ENKABJEMKAB.MAC;3 



;JF PARITY ODD 



(1) 



;AND OUT PARITY BIT 



.•GENERATE LOCAL SYMBOL NAME 
;0R IN PARITY BIT 

;GENERATE LCL 2017 NAME 

;PUT DATA BACK IN CSR. VALUE 

; OR WCS VALUE 

;THIS RODTINE WHEN WCS PARITY 



IS CALCULATED 



;with A 



.FLIP PA'ITY BIT IN CARRY 
;T0 MAKE BAD PARITY 

;CLEAR BAD PARITY FLAf, 

.'GENERATE lU. ?0'9 '.'AME 



ZZ-EMKAB-1.5 .MAIN 
.MAiN. 
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AF 
3C 

006A' 



C9 



?1 
00 57 

08 7D' 



C9 



Af 
3C 
12 
03CO' 



7A 
00 56 

CD 
08 7D* 



0C04 

^'M 

ClOA 

0C04 

OCOA 

0C04 

OCOA 

OCOA 

0C05 

0C06 

0C07 

0C09 

0C09 

0C09 

OCOA 

OCOA 

OCOA 

OCOA 

OCOA 

OCOA 

OCOA 

OCOA 

OCOA 

OCOA 

OCOA 

OCOA 

0C08 

CCOD 

OCOD 

OCOE 

0C10 

0C10 

OCIO 

ccn 
ocn 

0C11 

ocn 

0C11 

ocn 
ccn 
ocn 
ocn 
ocn 
ocn 
ocn 
oci? 

0C13 

ocu 

0C16 
0C16 
0C16 
0C17 
0C19 
CC19 
OCIA 
OCK 
0C1C 



1878 

1879 
1880 

1881 
1882 



1883 
188A 

1885 
1886 
1887 
1888 
1889 
1890 
1891 
189? 
1893 
1894 
1895 



1896 



1897 
18^8 

1899 
1900 
1901 
1902 
1903 

1905 
1906 
1907 
1908 
190v 



1910 

ign 



1912 



1913 
19U 



2018$: 
2015$: 



.BVTE 
.BYTE 
.BYTE 
.WORD 



.BYTE 



ENDIF 
ENDIF 



SET 

*0250 

*0A .' 

^062 

<PAR1TY.0M-HEAD> 

RET 

^0311 



PARJTY ON 

! A 
<8*A> 



;With A 



;GENERATE LCL 2018 .NAME 

/GENERATE LCL 2015 NAME 
;TURN PARJTY CALC BACK ON 



RESTORE WR 

THiS RODTJNE CALLS A WCS SUBROUTINE THAT RESTORES THE WORKING REGS 

OF THE 2901 FROM A SAVED AREA 



RESTORE WR: 

.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 



LXl H^WCS REST WR ;AODRESS OF SUBROUTINE 

<H*8> : 1 

<WCS REST WR-HEAD>&255 , «WCS REST WR"HEAD>&''XFF00>/256 

CALL" EXEC sue ;D0 THE SUBROUTINE 

*0315 

<EXEC_SU8-HEAD> 

RET 

'^0311 



SAVE WR 

THJS"ROUTINE CALLS A WCS SUBROUTJNE THAT SAVES THE CONTENTS OF THE 

2901 IN A SPECIAL SAVE AREA SO THEY MAY BE RESTORED LATER. 

SAVE WR: SET NO SAVE UPC CSR ;SET FLAG SO SAVED CSR AND 
.BYTE ^"0250 ! A " " " ;with A 
.BYTE *0A ! <8*A> 
.8YTE *062 
.WORD <N0 SAVE UPC CSR-HEAD> 

; UPC ARE NOT DESTROYED 

LXI H,WCS SAVE WR ."ADDRESS OF SUBROUTINE 

.BYTE <H*8> 11 
.BYTE <WCS SAVE WR-HEAD>&255 , <<WCS_SAVE WR-HEAD>&*XFF00>/256 

CALL' E5?EC SUB ;D0 THE SUBROUTINE 

.BYTE '^0315 
.WORD <EXEC_SU8-HEAD> 

RET 



L„- 



ZZ-ENKAB-1.5 .MAIN 
.MAIN. 



C9 



?A 
0678' 

22 

006C' 

CD 
0E6D* 



CD 
0E8A' 



C9 



'A 

87 
CO 

AF 



0C1C 

0C1D 

0C1O 

0C1D 

0C1D 

0C1D 

0C1D 

0C1D 

OCID 

0C1D 

OCID 

OCID 

0C1D 

OCID 

OCID 

OCID 

OCID 

OCID 

OCID 

OCID 

0C1E 

0C20 

OC^O 

oc?i 

0C23 

0C23 
0C2A 

0C26 
0C?6 
0C26 
0C27 
0C29 
0C29 
0C29 
0C2A 
0C2A 
0C2A 
0C2A 
OC?A 
0C2A 
0C2A 
0C2A 
0C2A 
0C2A 

oc;;A 

CC2A 
Oi7A 
r- ?A 
0C2A 
0C28 
0C2n 
0C?D 
0C2E 
0C3t" 
0C2F 

0C?F 
Ol?f 



1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
192A 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 



1933 



193A 



1935 
1936 



1937 
1938 

1939 
19-iO 
1941 
1942 
19A3 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 



1953 

1954 

1955 
1956 



.8YTE 
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*0311 



43 : 
(1) ■ 



CHANGE WCS 

THIS ROUTINE READS A WCS WORD. THEN CALCULATES PARITY ON IT AND 

WRITES IT BACK. THIS IS USFD FOR SETTING AND CLEARING SOMM 

ADDRESSES AND SETING BAD PARITY 

INPUT CONDITIONS: 

WCS BAD PARITY MUST BE SET OR CLEARED 
BECSUSE"IT IS USED IH A CALLED ROUTINE 

INPUT.NUM MUST HAVE THE ADDRESS TO BE CHANGED 

it***H**Hi^i^**H*'«*'******<l|*****i^********<H^******* ************************** 



CHANGE WCS: 

• BYTE 
.WORD 

.BYTE 

.WORD 

.BYTE 

.WORD 



.BYTE 
.WORD 



.BYTE 



LHLD INPUT NUMt2 

-^052 

< INPUT NUM+2-HEAD- 

SHLD " WCS ADDRESS 

^^042 

<WCS ADDRFSS-HEAD> 

CALL" READ WCS R 

"0315 

<READ_WCS^R-HEAD> 

CALL WRITE WCS R 

^^0315 " ■ 

<WRITE.WCS_R-HEAD> 

RET 
"0311 



;PUT ADDRESS IN UPC TO REAP 



;FROM WCS 



;WRiTE WORD BACK WITH 



; PARITY 



*»(m*»**ft*n********n********'**i^************^******************************** 

CHECK^WCS LOADED 

THIS ROUTINE CHECKS THE WCS LOADED FLAG AND REPORTS AN ERROR IF SET. IT 
WILL POP THE STACK IF ERROR IS StT, SO THAT THE RETURN IN THE ERROR ROUTINE 
WILL SKIP THE REST OF THE ROUTINE THAT HAD THE ERROR. 

*************** ******Jtik*c** ************************************************** 



CHECK WCS LOADED: 

■ " LDA 

.BYTE 

.WORD 



WCS_LOADED 



.BYTE 
.BYTE 

.BYTE 



"072 

<WCS LOADtD-HEAD> 

ORA " A 

"0260 1 A 

RNZ 

"0500 

CLEAR NOAPD FLG 
"0250 : A 



;with A 



;GET WCS LOADED FLAG 

;SET CONDITION CODES 
;RETURN IF WCS LOADED 

;ELSE CLEAR FLAG IF SET 



7Z-ENKAB-1.5 ,MA1N, 
.MAIN. 
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32 
03BD' 

Fl 



C3 
OCAA' 



CD 
0D9B* 



10 06 



3A 
02E2' 

B7 
C8 

Fl 



C3 
OCAA' 



AF 



0C30 

0C31 

0C35 

0C33 

0C3A 

0C3A 

0C34 

0C3A 

0C35 

0C37 

0C37 

0C37 

0C37 

0C37 

0C37 

0C37 

0C37 

0C37 

0C37 

0C37 

)C37 

0C3? 

0C33 

0C3A 

0C5A 

0C3A 

0C5C 

0C5C 

0C3C 

0C3C 

0C3D 

0C3F 

0C3F 

OCAO 

OCAO 

0CA1 

0CA1 

0CA1 

0CA2 

OCA? 

OC^c 
0CA2 
0C43 
0CA5 
0CA5 
OCAS 
0CA5 
OCAS 
OCAS 
OCAS 
0CA5 
OCAS 
OCAS 
OCAS 
OCAS 
OCAS 
OCAS 



1957 

1958 
1959 
1960 



1961 
1962 
1963 
196A 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 



1973 
197A 

1975 
1976 
1977 



1978 
1979 

1980 

1981 

1982 

1983 
198A 



1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
199A 
1995 
1996 
1997 



.BYTE -^062 

.WORD <NOA0iJ FL6-HEAD> 

POP ■ JPSW 
.BYTE *0301 ! <8*$PSW> 



JMP ERROR ROUTJNE 

.BYTE '^0303 
.WORD <ERROR ROUTINE-HEAD> 



;POP THE STACK TO REMOVE 

; RETURN ADDRESS TO CALLING 

; ROUTINE 

;G0 REPORT ERROR BELOW 



CHECK^ERR.FLG: 

THIS ROUTINE CHECKS THE ERROR FLAG AND REPORTS AN ERROR IF SET. IT WILL 
POP THE STACK IF ERROR IS SET, SO THAT THE RETURN IN THE ERROR ROUTINE 
WILL SKIP THE REST OF THE ROUTINE THAT HAD THE ERROR. 



INPUT NUM CHECK:CALL INPUT NUM IF 
" .gVTE *0315 

.WORD <INPUT NUM IF-HEAD> 



check err 10: 
" .Byte 



CHECK ERR FLG 

.5yte 

.WORD 

.BYTE 

.BYTE 

.BYTE 



.BYTE 

.WORD 



MVI B,<*X10> 

<B*8> ! 6 , *X10ii255 



LDA ERROR 

*072 

<ERROR-HEAD> 

ORA A 

*0260 ! A 

R2 

^^0310 

POP $PSW 

^0301 1 <8*SPSW> 



JMP ERROR ROUTINE 

"0303 

<ERROR_R0UTINE"HEAD> 



;GET INPUT DATA 

ERROR CODE IF ERROR SET 

(NO INPUT ADDRESS OR DATA) 
GET ERROR FLAG 

;SET CONDITION CODES 
;RETURN IF NO ERROR 

;POP THE STACK TO REMOVE 

; RETURN ADDRESS TO CALLING 

; ROUTINE 

;G0 REPORT tRROR BELOW 



ERROR ROUTINE 

THIS Routine will report an error and its error number 

INPUT CONDITIONS: 
B = ERROR CODE 



ERROR ROUTINE NO RET: 

" Set no RETURN 
.BYTE '^0250 1 A 



;with A 



;SET FLAG, JUMP PARSER AFTER 



ZZ-ENKAB-1.5 
.MAIN. 



.MAIN. 
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3C 
32 
03eF' 



78 

. 32 
0058' 

32 
0013* 



25 06 

A8 

C2 
0C75' 

CD 

101A' 

21 

01*99' 

CD 
100E* 

CD 

101A' 

21 
01*64* 

CD 
100E' 

CD 
101A* 

21 
02*62' 

CD 
100E* 

C5 
098A' 



01 3E 
32 



0CA6 

0C47 

OCAS 

OCAA 

0C4A 

OCAA 

OCAB 

OCAB 

OCAC 

OCAE 

OCAE 

OCAF 

0C51 

0C51 

0C51 

0C53 

0C53 

0C5A 

0C5A 

0C55 

0C57 

0C57 

0C58 

0C5A 

0C5A 

0C58 

0C5D 

0C5D 

0C5E 

0C60 

0C60 

0C61 

0C63 

CC63 

0C6A 

0C66 

0C66 

0C67 

0C69 

0C69 

0C6A 

0C6C 

0C6C 

0C6D 

0C6F 

0C6F 

0C70 

0C72 

0C72 

0C73 

0C75 

0C75 

0C75 

0C75 

0C75 

0C77 

OC 77 



1998 

1999 ERROR. 

2000 

2001 

2002 
2003 

200A 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

20U 

2015 

2016 

2017 
2018 

2019 



.BYTE 
.BYTE 
.WORD 

ROUTINE 
.BYTE 

.BYTE 
.WORD 

.BYTE 
.WORD 



2020S 



.BYTE 

.BYTE 

.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 
,6YTE 

.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
.BYTE 



-^OA I <8*A> 

*062 

<N0 RETURN-HEAD> 



A,B 

<A*8> ! B 
HEX BUF 



MOV 

^0100 

STA 

^062 

<HEX BUF-HEAD> 

STA " APT ERROR NUMBER+1 

*062 

<APT ERROR NUMbER+1-HEAD> 



; E9R0R REPORTED 

; ERROR CODE FROM B TO AC 

;SAVE ERROR CODE 
;SAVE IN APT MAILBOX 

; CHECK FOR TU58 ERROR 



/REPORT BAD TU58 JF ?25 ERROR 



MVI B,<*X25> 

<B*8> I 6 , '^X25&255 

XRA B 

*O250 I B ;with A 

IFZ 

*O302 

<2020$-HEA0> 

CALL CRLF R 

*0315 

<CRLF R-HEAD> 

LXI " H,8AD TAPE A 

<H*8> ! 1 

<BAD TAPE A-HEAD>&255 , «BAD TAPE.A-HEAD>&''XFF00>/256 

CALL" PRiNT STRING R 

*0315 

<PRINT STRING R-HEAD> 

CALL CRLF R 

•^0315 

<CRLF R-"HEAD> 

LXI " H. ABORT A 

<H*8> ! 1 

<AB0RT A-HEAD>B255 , «ABO.'^T A-HEAD>&'^XFF00>/256 

CALL " PRINT STRING R 

'^0315 

<PRINT,STRIN6 R-HEAD> 

CALL CRLF R 

^^0315 

<CRLF R-HEAD> 

LXI " H,END A 

<H*8> I 1 

<END A-HEAD>&25b , <<END A-HEAD>&''XFF00>/256 

CALL" PRINT STRING R " 

^^0315 

<PR1NT STRING R"H£AD> 

JMP " STNDRI5 CON COM 

^^0303 

<STNOR0,CON.COM-HEAD> 

ENDIF 



; CANNOT CONTINUE CRD 



MVI AJ 

<At8> : 6 , U255 

STA APT ERROR NUMBER 

'^062 



GENERATE LCL 2020 NAME 

1 IN ACCUM 

1 IN HIGH BYTE TO INDICATE 
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0012* 0C78 .WOPD <APT ERROR NUMBER-HEAD> | 

0C7A 2020 " " ; MONITOR ERROR | 

0C7A 2022 CLEAR ERROR ;RESET ERROR CONDI TON 

AF 0C7A .BYTE *0250 I A ;with A | 

32 0C7B .BYTE '^062 j 

02E2' 0C7C .WORD <ERROR-HEAD> , ^ 

0C7E 2023 CLEAR NOADD FL6 ;MAKE SURE EXAM FLAG IS CLEAR j 

AF 0C7E .BYTE *0250 ! A " ;with A i 

32 0C7F .BYTE ^062 ! 

03aD' 0C8O .WORD <NOADD FLG-HEAD> i 

0C82 202A CLEAR CTLDIS ;ENA8L£ CONTROL CHAR CHECK j 

Af 0C82 .BYTE *O250 I A ;with A \ 

52 0C85 .BYTE ^^062 i 

40FE OCB^ .WORD <CTLDJS-HEAD> 

0C86 2025 : IF DISABLED 

0C86 2026 MVI A, 2 ;INDICATE ERROR I 

02 3E 0C86 .BYTE <A*8> ! 6 , 2S255 

0C88 2027 STA APT MESSAGE CODE+1 ;STORE IN MAILBOX I 

32 0C88 .BYTE -^062 

0011* 0C89 .WORD <APT MESSAGE C0DE+1-H£AD> 

0C8B 2028 

0C8B 2029 LXI H,FAIL A ;PRINT *FAIL* MESSAGE 

21 0C8B .BYTE <H*8> II" 

02*EF' 0C8C .BYTE <FAIL A-HEAD>B255 , <.FAlL^A-HEAD>&*XFr00>/256 

0C8E 2030 CALL ' PRINT STRINGER 

CD 0C8E .BYTE ^0315 

100E* 0C8F .WORD <PRINT STRING R-HEAD> ! 

0C91 2031 CALL CRLF R ;PRINT CRLF I 

CD 0C91 .BYTE -^OSIS 

101A' 0C92 .WORD <CRLF R-HEAD> 

0C9A 2032 LXI " H, ABORT A ;PRINT AUTOTEST ABORT MESSAGE 

21 0C94 .BYTE <H*8> II" ! 

0V6A' 0C95 .BYTE <ABORT A-HEAD>£255 , «ABORT„A-HEAD>B'^XFFOO>/256 

0C97 2033 CALL " PRINT STRING R 

CD 0C97 .BYTE *0315 

100E* 0C98 .WORD <PRINT STRING R-HEAD> 

0C9A 2034 

0C9A 2035 LXI H.CPU A ;CPU IS POSSIBLY BAD 

21 0C9A .BYTE <H*8> ! 1 " « .^ -.r 

02*57* 0C9S .BYTE <CPU A-HEAD>B255 , «CPU A-H£AD>6*XFF00>/256 

0C9D 2036 CALL" PRINT STRING R ;PRINT 

CD 0C9D .BYTE ''OSIS 

100E* :'C9E .WORD <PRINT STRING R-HEAD> 

OCAO 2037 

OCAO 2038 MVI C,5 ;BYTE COUNT 

05 OE OCAO .BYTE <C*8> ! 6 , 56255 

0CA2 2039 LXI H, SECTION NAME .LOAD SECTION NAME INTO DE 

21 0CA2 .BYTE <H*8> ! 1 " 

08'CA' 0CA3 .BYTE <SECTI0N NAME-HEAD>a255 , «5EC ri0N_NAME"HEAD>B*XFF00>/256 

OCAS 2040 XCHG 

EB OCAS .8/TE ^^0353 

0CA6 2041 

0CA6 2042 LXI H,ENKCC A ;SEE IF ENKCC IS BEING RUN 

2' 0CA6 .BYTE ^H*8> I 1 

02'C9' 0CA7 .BYTE <EN<CC A-HEAD>&255 , «ENKCC A-HEAO>R*XFFO0>/256 

0CA9 2045 CALL ' COMPARE R 



[ 



|ZZ-ENKAB-1,5 
i.MAlN, 



.MAIN. 



CD 


0CA9 




OF55* 


OCAA 






OCAC 


20^4 


C2 


OCAC 




OCBB' 


OCAD 






OCAF 


20A5 


2^ 


OCAF 




03»D0' 


OCBO 






0CB2 


2046 


CU 


0C82 




100E* 


0CB3 






0C85 


2047 


21 


0CB5 




03*AD' 


oca6 






0CB8 


2048 


CD 


0C88 




lOOE' 


0C89 






OCBB 


2049 




OCBB 






OCBB 


2050 




OCBB 


2051 


21 


OCBB 




02*CB' 


OCBC 






OCBE 


2052 


CD 


OCBE 




0F55* 


0C8F 






0CC1 


2053 


C2 


0CC1 




OCDO' 


0CC2 






OCCA 


2054 


21 


OCC^ 




03'D0' 


0CC5 






0CC7 


2055 


CD 


0CC7 




100E' 


0CC8 






OCCA 


2U56 


21 


OCCA 




02'FE* 


OCCQ 






OCCD 


2057 


CD 


OCCD 




100E* 


OCCE 






OCDO 


2058 




OCDO 






OCDO 


2059 




OCOO 


2060 


21 


OCDO 




02 ^03 


0CD1 






0CD3 


2061 


CD 


0CD3 




0F55 


OCD^ 






0CD6 


2062 


f2 


0CD6 




0CE5 


0CD7 






0CD9 


2063 


21 


0C09 




03*D0 


OCDA 






OCDf 


2064 



2021$: 



2022$: 



.BYTE 
,WORD 

.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 
.BYTE 
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;JF IT IS 



;THEN PRINT MEMORY BAD 



«0R A-HEAD>&*XFF00>/256 



'^0315 

<C0MPARE R-HFAD> 

IF2 

'^0302 

<2021$-HEAD> 

LXI H,OR A 

<H*8> I 1 

<0R A-HEAD>&255 

CALC print STRING R' 

*0315 

<PRINT STRING R-HEAD> 

LXI " H, MEMORY A 

<H*8> I 1 

<MEMORY A-HEAD>R255 . «MEr.0RY.A-HEAD>S*XFF00>/256 

CALL "PRINT STRING R 

-^0315 

<PRINT STRING R-HEAD> 

ENDIF 

; GENERATE LCL 202"; NAME 



;SEE IF F.NKCE IS BEING RUN 
«ENKCE_A-hEAD>&*XFF00>/256 

;IF IT IS 

;THEN PRINT FPA BAD 



LXI H,ENXCE.A 

<H*8> ! 1 

<EN>^CE A-HEAD^&255 

CALL COMPARE R 

^^031 5 

<rOMPARE R-HEAD> 

IFZ 

^^0302 

<2022$-HEAD> 

LXI H,0R A 

<H*8> I 1 

<0R A-HEAD>6255 , «0R A"HEAD>&*XFF00>/256 

CAlC PRINT STRING R 

^^031 5 

<PRINT STRING R-HEAD> 

LXI H,FPA""A 

<H«8> I 1 

<fPA A-HEAD>R255 , «FPA A-HEAD>(&*XFF00>/256 

CALL" PRINT STRING R " 

*0315 

<PR]NT STRING R-HtAD> 

ENDIF 

;GENERATE LCL 2022 NAME 



;SE£ IF ENKCH IS BEING RUN 
^<ENKCH^A-HEAD>a*XFF00>/256 



LXI H, ENKCH A 

<H«8> ! 1 

<ENKCH A-HEAD>&255 

CALL COMPARE R 

^031 5 

<CQMPARE R-HEAD> 

IFZ 

*0302 

<2023$-HEAD> 

LXI H,0R A 

<H*8> I 1 

<0R A-HEAD>&255 , <<0R, A-HEAD>&*XFF00>/256 

CAlC PRINT STRING R 



;IF IT IS 

;THEN PRINT IDC BAD 



lZZ-ENKAB-1.5 .MAIN. 

.MAIN. 



CD 


OCDC 




100E* 


OCDD 






OCDF 


2065 


21 


OCDF 




03'3E' 


OCEO 






0CE2 


2066 


CD 


0CE2 




100E* 


0CE5 






0CE5 


2067 




0CE5 


202 




0CE5 


2068 




0CE5 


2069 


?1 


0CE5 




02*D8' 


0CE6 






0CE8 


2070 


CD 


0CE8 




OF 55* 


0CE9 






OCEB 


2071 


C2 


OCEB 




OCFA' 


OCEC 






OCEE 


2072 


21 


OCEE 




03'D0' 


OCEF 






0CF1 


2073 


CD 


0CF1 




100E' 


0CF2 






OCFA 


207A 


21 


OCFA 




03'3E' 


0CF5 






0CF7 


2075 


CD 


0CF7 




100E' 


0CF8 






OCFA 


2076 




OCFA 


2o; 




OCFA 


2077 




OCFA 


2078 


21 


OCFA 




02'DD' 


0CF8 






OCFD 


2079 


CD 


OCFD 




Of 55' 


OCFE 






ODOO 


2080 


C2 


ODOO 




0D18' 


0D01 






0D03 


2081 


21 


0D03 




o;*DO' 


ODOA 






0D06 


2082 


CD 


0D06 




100E' 


0D07 






0D09 


2083 


21 


0D09 




03'3E' 


ODOA 






ODOC 


208A 


CD 


ODOC 




100E 


ODOD 






ODOF 


2085 



• BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
• BYTE 

.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 
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*0315 

<PRINT STRING R-HEAD> 

LXI " HJDCiA 

<H*8> ! 1 

<1DC A-HEAD>&255 , «JDC A-KEAD>a*XFF00>/256 

CALL" PRINT STRING R 

-^0315 

<PRINT STRING R-Ht;AD> 

ENDIF ' 

.•GENERATE LCL ?023 NAME 



53 
(1) 



;SEE IF ENKCF IS BEING RUN 
«ENKCF,A-HEAD>&*XFFO0>/256 

;IF IT IS 

;THtN PRINT IDC BAD 



LXI H.ENKCF.A 

<H*8> I 1 

<ENKCF A-HEAD>B255 

CALL ■ COMPARE R 

*0315 

<C0MPARE R-HEAD> 

IFZ 

'^0302 

<202A$-HEAD> 

LXI H,0R A 

<H*8> ! 1 

<0R A-HEAD>&2S5 , 

CAlC PRINT STRING R 

'^0315 

<PRINT STRING R-HEAD> 

LXI ** HJDCiA 

<H*8> ! 1 

<IDC A-HEAD>&255 . «IOC A-HEAD>&*XFF00>/256 

CALL" PRINT STRING R 

*0315 

<PRINT SIRING R-HEAD> 

ENDIF 

.'GENERATE LCL 202^* NAME 



':<0R.A-HEAD>&''XFF00>/256 



;SEE IF ENKCF IS BEING RUN 
«ENKCG,A-HEAD>&*XFF00>/256 



;IF IT IS 

;THEN PRINT IDC BAD 



LXI H.ENKCG,A 

<H*8> I 1 

<ENKCG A"HEAD>£255 

CALL " COMPARE.R 

*0315 

<C0MPARE R-HEAn> 

IF? 

*0302 

<2025$-HEAD> 

LXI H.OR A 

<H*8> ! 1 

<0R A-HEAD>6255 . «0R A-HEAD;&*XFF00>/256 

CALC PRINT STRING R 

"0315 

<PRINT STRING R-HEAD> 

LXI " MJDC A 

<H*8> : 1 

<IDC A-HEAD>B255 , «IDC A-H£A0>&'*XFF00>/256 

CALL" PRINT STRING R 

*0315 

<PRINT STRING R-HEAD> 

LXI " H,0R S ;PR1NT RL02 BAD 



1Z;-ENKAB-1.5 
.MAIN. 



.MAIN. 



21 
03'00» 

CD 
100E' 

21 
03'FE' 

CD 
100E' 



21 

or7F' 

CD 
lOOE* 



CD 
IQIA' 



21 
03»55» 

100E* 



CD 
102F' 



01 OE 

21 
08»D1' 

E8 



21 
0T78' 

CD 



C2 

OD^B' 

CD 
101A* 



ODOF 

0D10 

0D12 

0D12 

0D13 

0D15 

0D15 

0D16 

0D18 

0D18 

0D19 

0D1B 

0D1B 

0D1B 

ODIB 

ODiB 

ODU 

ODIE 

0D1E 

ODIF 

0D21 

0D21 

0D21 

0D22 

0D2^ 

0D24 

0D2A 

0D25 

0D27 

0D27 

0D28 

0D2A 

0D2A 

0D2A 

0D2B 

0D2D 

0D2D 

0D2D 

CD2F 

GD2f 

OD30 

0D32 

0D32 

0033 

0D33 

0D33 

0D3^ 

0D36 

0D36 

0D37 

0D39 

0D39 

0D39 

0D3A 

0D3C 

0D3C 

0D3D 



2086 
2087 
2088 

2089 

2090 
2091 

2092 



2025$: 



2093 

209A ERR,MENU: 



.BYTE 
.BYTE 

.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.WORD 



2095 
2096 



2097 



2098 
2099 



2100 
2101 

2102 



2103 

210^ 
2105 



2106 



2107 
2108 



2109 



.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.WORD 



.BYTE 

.BYTE 
.BYTE 

.BYTE 



.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 

.WORD 

.BYTE 
.WORD 
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<H*8> ! 1 

<0r a-head>b255 , «0r a-head>&*xff00>/256 
calC print string R 

*0315 

<PR1NT STRING R"HEAD> 

LXI ■ H.RLO? A 

<H*8> ! 1 " 

<RL02 A-HEAD>8255 , <<RL02.A-HEAD>&*XFFOO>/256 

CALL " PRINT STRING R 

*0315 

<PRINT STRING R-HEAD> 

ENDIF 

; GENERATE LCL 2025 NAME 

LXI H,8AD.A 

<H*8> 1 1 

<BAD A-HEAD>6255 , «BAD A"HEAD>&*XFF0O>/256 

CALL" PRINT STRING R 

^031 5 

<PRINT_STRING_R-HEAD> 

CALL CRLF R 

*0315 

<CRLF.R-HEAD> 

LXI H,MENU A ;PRINT OPTIONS 

<H*8> 11" 

<MENU A"HEAD>6255 . <<MENU A-HEAD>&*XFF00>/256 

CALL " PRINT STRING R 

*0315 

<PRINT STRING R-HEAD> 



CALL INPUT^LINE 

*0315 

<INPUT^LINE-HEAD> 

MVI CJ 

<C*8> ! 6 , 1&255 

LXI H,rTBUF 

<H*8> ! 1 

<TTBIJF-HEAD>8255 , 
XCHG 
*0353 



;GET DESIRED OPTION 



H, ASCII 1 

1 



LXI 

<H*8> 

<ASC1I 1-HEAD>R255 

CALL " COMPARE R 

^^0315 

<COMPARE,R-HEAD> 

IFZ 

*O302 

<2026$"HEAD> 

CALL CRLF^R 

*0315 

<CRLF R-HEAD> 



;POINT TO USER RESPONSE 
«TTBUF-H£AD>&*XFF00>/256 

;WAS A 1 TYPED? 
, «ASCJI.1-HEAO>8'^XFF00>/256 

;IF 1 WAS TYPED 



IZZ-ENKAB-1.5 .MAIN. 
i.MAlN. 





0D3F 


2110 


?1 


0D3F 




Oa'62' 


ODAO 






OD';? 


2111 


CD 


0D^2 




100E' 


0D45 






0D45 


2112 


CD 


0DA5 




lOM* 


0DA6 






ODAS 


2113 


C5 


0DA8 




098A' 


0DA9 






OD-iB 


211A 




ODAB 






ODAB 


2115 




ODAB 


2116 


?1 


ODAB 




or7c' 


ODAC 






ODAE 


2117 


CD 


ODAE 




OF55' 


ODAF 






0D51 


2118 




0D51 


2119 


C2 


0D51 




OD57' 


0D52 






0D5A 


2120 


C5 


0D5A 




1CD2' 


0DS5 






0D57 


2121 




0D57 






0D^7 


2122 




0D57 


2123 


2) 


0D57 




01 '7D' 


0DS8 






on 5 A 


/-VA 


CD 


0D5A 




Cf55' 


0D5B 






0D5D 


212S 




CDSD 


2126 


C? 


CD5D 




OP 76' 


0D5E 






0060 


2W7 




0D6O 


2128 


?1 


0D60 




0?'Sn* 


0D61 






0D63 


2129 


CD 


0D63 




TOU» 


0D6A 






0066 


2130 


3F 3E 


0D66 






0D68 


2151 


CD 


0D68 




I0c7' 


0069 






0D6B 


2152 




0D68 


2135 


01 OE 


0D6B 






0D6D 


21 3A 



2026S: 



2027$: 



.BYTE 
.BYTE 

.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.WORD 



• BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.WORD 



.3YTfc' 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.WORD 

.BYTE 

.BYTE 
.WORD 



.BYTE 
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LXl H,END A 

<H*8> ! 1 

<END A-HEAD>&255 , «END^A-HEAD>&*XFF00>/256 

CALL" PRINT STRING R 

*0315 

<PRINr STRING R-HEAD> 

CALL " CRLFj 

*0315 

<CRLF R-HEAD> 

JMP " STMDRD CON COM 

*O303 ■ ■ 

<STNDRD CON COM-HEAD> 

ENDIF ~ " 



55 
(1) 



;THEN GO BACK TO CONSOLE 



LXl H, ASCII. 2 

<H*8> I 1 

<ASCII 2-HfcAD>&255 

CALL " COMPARE^R 

^0315 

<COMPARE_R-HEAD> 

IFZ 

'^0302 

<2027$-H£AD> 

JMP START UP 

•^0303 

<START UP-HEAD> 

ENDIF " 



LXl H, ASCII 5 
<H^8> ! 1 

<ASCI1 5-MEAD>&255 
CALL ' COMPARE R 

0515 

-COMPARE,R"HEAD> 

in 

*O302 
<2028$-HEAD> 

LXl H^CRLF A 

<H*8> I 1 

<CRLF A-HEAD>S255 

CALL " PRINT STRING_APT 

*0315 

<PR1NT STRING APT"HEAD> 

MVl " A,HEX'3F 

<A*8> : 6 , hFX 3F&255 

CALL TYPE CHAR 

^0513 

<rlYP£^CHAR-HEAD> 

mi cj 

<C*8> 1 6 . !S25S 
CALL PRINT HEX R 



; GENERATE LCL 2026 NAME 
«ASCIL2-HEAD>&*XFF00>/256 

;19 2 WAS TYPED 
;THEN START AUTO MODE 

;GENERATE LCL 2027 NAME 

«ASCII^3-HEAD>a*XFF00>/256 

;IF 3 WAS TYPED 

.POINT TO CR 
«CRLF.A-HEAD>&''XFF00>/256 



.'PRINT CRLF 
;QUESTJ0N MARK 



;PR1NT 1 BYTE (2 DIGITS) 
;PRINT ERROR CODE IN HEX BUF 



7Z-FNKAB-1.5 .MAIN, 

.MAIN. 
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CD 
OF 96' 



21 

02*E5' 

CD 
10U' 



C3 
0D2r 



3A 
036F* 

B7 

C8 



AF 
33 
038F* 

Af 

32 
003A' 

31 
^0 80 

C5 
1DAE* 



21 
00*88* 

11 
00'5B' 

CD 
0F5F' 



03 OE 



0D6D 
0D6E 
0D70 
0D70 
0D70 
0D71 
0D73 
0D73 
0D7^ 
0D76 
0D76 
0D76 
0D76 
0D77 
0D79 
0D79 
0079 
0D7A 
0D7C 
0D7C 
0D7D 
0D7D 
0D7E 
0D7E 
0D7E 
0D7F 

0D80 
0D82 
0D82 
0D83 
0D8^ 
0D86 
0D86 
0D87 
0D89 
0D89 
0D8A 
0D8C 
0D8C 
0D8C 
ODBC 
0D8C 
0D8C 
008C 
0D8C 
0D8C 
0D8C 
0D8D 
0D8F 
0D8F 
0D90 
0D92 
0092 
0093 
0095 
0095 
0095 



2135 
2136 



2137 

2158 
2159 



2U0 
2U1 



2U3 

2U^ 
2U5 

2U6 

2M*7 
2U8 



2U9 
2150 
2151 
2152 
2153 
215<; 
2155 
2156 
2157 



2158 

2159 



2160 
2161 



2028$: 



.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 

,8YTE 



.BYTE 
.BYTE 
.WORD 

• BYTE 
.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 



'^0315 

<PRJNT HEX R-HEAD> 



;PRJ(yT " ERROR" 



LXI H, ERROR A 

<H*8> I 1 

<ERROR A-HEAD>&255 , «ERROR A-HEA0>S'^XFF00>/256 

CALL " PRINT STRING APT 

*0315 

<PniNJ STRING APT-HEAO> 

ENDIF " 



JMP ERR MENU 

*0303 

<ERR_MENU"HEAD> 

LDA NO RETURN 

*072 

<N0 RETURN-HEAD> 

ORA" A 

*0260 ! A 

RZ 

-^0310 

CLEAR NO RETURN 

"0250 ! A " 

*062 

<N0 RETURN-HEAD> 

CLESR CONTINUE 

*O250 ! A 

*062 

<CONTINUE-HEAD> 

LXI $SP,PRI STACK 

<$SP*8> ! 1 

<PRI STACK-HEAD>B255 

JMP " PARSER 

''0303 

<PARSER-HcAD> 



;with A 



;wi'th A 



;GENERATE LCL 2028 NAME 

;SEE IF CAN'T RETURN 

;SET CONDITION CODES 
;RETURN IF FLAG CLEAR 

;ELSE CLEAR FLAG 
;N0 CONTINUE ALLOWED 
;RESE1 STACK POINTER 



«PRI STACK"HEA0>£*XFF00>/256 
;G0 TO PARSER 



**************************************************************************** 

PRINT^CSR^VALUE ^ . ^ 

THJS RoUTTNE PRINTS THE VALUE IN THE FIELD CSR_VALUE 



PRINT CSR VAL 

" .5YTE 

.BYTE 

.BYTE 
.BYTE 

• BYfE 

.WORD 



.BYTE 



LXI H,CSR VALUE 

<H*8> : 1 

<CSR VALUE-HEAD>&255 

LXI " D,HEX BUF 

<D*8> : 1 

<HEX 8UF"HEAD>&255 , 

CALL* MOVER 3 R 

*0315 

<M0VER„3_R-HEAD> 

Mvi :,3 

<C*8> 1 6 , 3&255 



, «CSR VALUE"HEA0>£*XFF00>/256 

" ;M0VE CSR_VALUE TO HEX NUMBER 

«HEX 8UF-HEAD>£*XFF00>/256 
;PRINT AREA 



?Z-ENKAB-1,5 
.MAIN. 



.MAIN. 



CD 
OF 96' 



C9 



AF 

32 
02E2' 



3A 
OAOE' 
FE 
2D 
C2 
0DB5' 



AF 
5C 
32 
0388' 

CD 
0F33* 

ro 
0E53' 



C3 

ODFC* 



Af 
52 

0386' 



0D97 

0D97 

0D98 

0D9A 

0D9A 

0D9A 

0D9B 

0D98 

0D98 

0D98 

0D98 

0098 

0D9B 

0D9B 

0D98 

0D9B 

0D98 

0D98 

0D9B 

0D98 

C?98 

0098 

0D98 

0D98 

0D9C 

0D9D 

0D9F 

0D9F 

0D9F 

ODAO 

0DA2 

0DA3 

ODAA 

0DA5 

0DA7 

0DA7 

0DA7 

0DA8 
0DA9 
ODAA 
ODAC 
OOAC 
OOAD 
ODAF 
ODAF 
ODBO 
0082 
0082 
0D82 
0033 
0085 
0D85 
0D85 
0085 
0086 
0DB7 
0DR9 



U-JUN-198A Fuhe 1 Frame L5 Sequence 63 
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2162 



2163 
2164 

2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
21 7A 
2175 
2176 
2177 
2178 
2179 
2180 
2181 



2182 
2183 



CALL PRINT HEX R 

.BYTE *0315 
.WORD <PRINT HEX_R-HEA0> 



;PRJNT 3 BYTES OF CSR 



RET 
.BYTE *03n 

**************************************************************************** 

INPUT NUM IF 

THIS ROUTINE TAKES A NUMBER FROM THE INPUT LINE 

INPUT CONDITIONS 

TT8UF.PNT = POINTER TO INPUT STRING 

OUTPUT CONDITIONS 

MINUS = 1 IF MINUS SIGN FOUND, IF NOT 
ERROR IS SET IF AN ILLEGAL HEX CHAR IS FOUND 

**************************************************************************** 



2184 
2185 



2186 
2187 



2188 
2189 



•2190 
2191 



2192 



input num if: 
" .5yte 

.BYTE 
.WORD 



.BYTE 
.WORD 
.BYTE 
.BYTE 
.BYTE 
.WORD 



.BYTE 
.8YTE 
.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 

.WORD 



2029$: 



.BYTE 
.WORD 



.8YTE 
.BYTE 
.WORD 



CLEAR ERROR 
*O250 ! A 
*062 
<ERROR-HEAD> 

IFEQI TEMP BUF,HEX.2D 

*072 

<TEMP BUF-HEAO> 

^0376" 

HEX^2D 

*Qi02 

<2029$-HEAD> 

SET MINUS 

*O250 I A 

*04 I <8*A> 

^^062 

<MINUS-HEAD> 

CALL SKIP TO SPEC 

*0315 " " 

<SKIP TO SPEC-HEAD> 

CALL " Skip to spec 

*0315 ■ " 

<skip_to_spec-head> 

ELSE 

^^0303 

<2030$-HEAD> 



CLEAR MINUS 
*0250 : A 
^^062 

<minus-h:ad> 



;with A 



;IF MINUS SIGN 



;with A 



;MINUS - INFINITE LOOP 

;SKIP - SIGN AND THEN 
;SKIP THE NUMBER 



;with A 



.•GENERATE LOCAL SYMBOL NAME 
;N0 MINUS SIGN FOUND 



iZZ"[NKAB-1.5 .MAIN. 

I.MAl^. 











M 5 










U-JUN-1984 F 










U-JUN-198'i 










U-JUM-1984 




0DB9 


2193 




LXI H,NUM SHJFT 


2^ 


0DB9 




.BYTE 


<H*8> ! 1 


06'75' 


ODBA 




-BYTE 


<NUM SHJFT-HEAD>8255 




ODBC 


2194 




SHLD" SHIFT PNT 


22 


ODBC 




.BYTE 


*0A2 


0068* 


0D8D 




.WORD 


<SHIFT PNT-HEAD> 




ODBF 


2195 




CLEAR " MINUS 


AF 


ODBF 




.BYTE 


*O250 ! A 


12 


ODCO 




.BYTE 


*062 


0388' 


0DC1 




• WORD 


<MINUS-HEAD> 




0DC3 


2196 




ZERO INPUT_NUM,4 


2^ 


0DC3 




.BYTE 


<H*8> ! 1 


06'76' 


ODCA 




.BYTE 


<INPU1 NUM-HEAD>£255 


OA OE 


0DC6 




.BYTE 


<C*8> T 6 , A&255 


AF 


0DC8 




.BYTE 


*O250 ! A 




0DC9 


2031$: 




MOV M,A 


77 


0DC9 




.BYTE 


*0100 1 <M*8> 1 A 


21 


ODCA 




.BYTE 


<H*8> I 3 


OD 


0DC8 




.BYTE 


*05 ! <8*C> 


C2 


ODCC 




.BYTE 


*O302 


0DC9' 


ODCD 
ODCF 


219? 


.WORD 


<2031$-HEAD> 




ODCF 


2198 




CALL SKIP TO SPEC 


CD 


ODCF 




.BYTE 


*0315 


0E33' 


ODDC 
ODD? 


2199 


.WORD 


<SKIP_T0_SPEC-HEAD> 




0DD2 


2200 




LHLD OLD TT8UF 


2A 


CDD2 




.BYTE 


*052 


03CD' 


0DD3 




.WORD 


<OLD TTejF-HEAD> 




ODDS 


2201 




SHLD" TEMP W0RD1 


dV 


ODDS 




.BYTE 


''0(^2 


0^18' 


0DD6 




.WORD 


<TEMP_W0RD1-HEAD> 




ODDS 


2202 








ODDS 


2203 1$: 




ORA A 


87 


ODDS 

0D09 


2204 


.BYTE 


•^0260 ! A 




0DD9 


2205 




CALL SHIFTER R 


CD 


0DD9 




.BYTE 


*0315 


0E88* 


ODDA 




.WORD 


<SHIFTER R-HEAD> 




ODDC 


2206 




CALL Shifter r 


CD 


ODDC 




.BYTE 


''OSIS 


0E88' 


ODDD 




.WORD 


''SHIKER R-HEAD> 




ODDF 


2207 




CALL Shifter r 


CD 


ODLF 




.8YTE 


'^OSIS 


0E88' 


ODEO 




.WORD 


<shifter r-head> 




''DE? 


2208 




CALL Shifter r 


CD 


ODE? 




.BYTE 


'^OSIS 


0E88' 


00E3 




• WORD 


<shifter_r-head> 




ODES 


2209 








ODES 


2210 




'.hld tei^p wordi 


?A 


ODES 




.BYTE 


•^052 


O^^B' 


0DE6 




.WORD 


<temp wordi-heao> 




ODES 


2211 




MOV " A,M 


71 


ODES 




,8Y^E 


*0100 1 <A*8> 1 M 




0DE9 


221? 




iNX H 


21 


0DE9 




.BYTE 


<H''8> : 3 




ODEA 


ii2M 




SHLD TEMP WORDI 



uhe 1 Frame MS Sequence 64 
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;SET up shift POINTER 

, «NUM SHIFT-HEAD>a*XFF0O>/256 
" ;T0 NUMBER BUFFER 



;with A 

; CLEAR INPUT NUMBER AREA 
, «INPUT^NUM-HEAD>&*XFF00>/256 
;with A 



58 
(1) 



;SPAN AND GET COUNT 



;CLEAR THE CARRY SO SHIFT IN 

;W1LL BE ZERO'S 

;SHIFT NUMBER BUFF LEFT NIBBLE 



;GET A CHAR AND BUMP POINTER 



7Z"E\KAB-\5 .MAIN, 



N 5 r . ^C 

U-JUN-198A Fi'che 1 Frame fj5 Sequence 65 
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U-JUN-1984 15:A9:51 DRBO: CBALL.ENKABDENKAB.MACjS (1) 



22 



CD 

0615' 



21 
0(:>'79' 

86 
77 



21 
0^'06' 

35 

C2 
ODDS' 



02F2' 
QF 
P2 

OEU* 



2A 

03C0' 

22 



pi 
;J5'C3' 

■:a Of 

CD 
0^75' 



ODEA 
0DE8 
ODED 
ODED 
ODED 
ODEE 
ODFO 
ODFO 
ODFO 
0DF1 
0DF3 
0DF3 
ODF^ 
ODFA 
CDF 5 
0DF5 

e'>F5 

CDF6 
(0F8 

Oi)F8 
f'DF9 
0DF9 
COFA 
'OFC 
IDFC 

CD''" 

CDFC 

OOFC 

CDFD 
ODFF 

OEOO 

0E01 

GE05 

OE03 

QE03 

OtOi 

0E06 

0E06 

Cf07 

OECv 

OEO^ 

0E09 

CEOA 

OEOC 

OEOC 

OEOD 

OrQf 

GEOF 

QV '■■ 

OPI 

0F12 

CEU 

CFH 



22M. 
2215 



2216 
2217 



2218 
2219 

2220 
2221 



2222 
2223 



2224 
2225 

c'226 
2227 



2030$: 



2228 
222^ 



2230 



2231 
2232 



2233 



22'^.U 
22V- 



2236 

2237 

OF'A 2259 



.BYTE 
.WORD 



• BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 

.BYTE 



.BYTE 
.BYTE 

.BYTE 

.BYTE 
■ WORD 



.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 
.WORD 



.BY^E 
.BYTE 

.BYTE 

.BYTE 

.BYTE 
.WORD 



*0A2 
<TEMP_W0RD1-HEAD> 

CALL ASCII TO BIN 

*0315 

<ASCII_TO_BIN"HEAD> 

LXI HJNPUT NUM+3 

<H*8> ! 1 

< INPUT NUM*3"HEAD>&255 

ORA " M 

''0260 1 M 

MOV M,A 

*0100 i <M*8> ; A 

LXI H,SKIP CNT 

<H*8> I 1 

<SKIP CNT-HEAD>&255 

DCR " M 

*05 ! <8*M> 

JH2 1$ 

^0302 

<n-HEAD> 

ENDIF 



IF ERROR 

*072 

<ERROR-HEAD> 

^^017 

*0322 
<r2032$-HEAD> 

LHLD OLD TTBUF 

*052 

<01D TTBUF-HEAD> 

SHLD" TTBUF PNT 

*042 

<TT8UF^PNT"HEAD> 

LXI H,0LD TEMP BUF 

<H*8> ! 1 



;CONVERT TO BINARY 

;0R BINARY VALUE AND NIBBLE 
«INPUT_NUM+3-HEAD>&^XFF00>/256 



«SKIP CNT"HEAD>S*XFF00>/256 
;DEC CHAR COUNT 

;END? 



;GENERATE LCL 2030 NAME 



;N0 NUMBERS FOUND MOVE POINTER 
;BACK TO WHERE IT WAS ON ENTRY 



<OLD TEMP 8UF-HEAD>B255 , <<OLD TEMP BUF-HEAD>&'^XFF00>/256 

UI " dTtemp^bjf 



2032$: 



<^D*8> : 1 

<TEMP 8UF-HEAO>£255 
MVI " C,10 
<C*8> ! 6 , 10&255 
CALL MOVER R 

*031S 
^MOVER.R-HEAD> 

ENDIF 



<<TEMP_E:uF-HEAD>&''XFF00>/256 



;GENERATC LCI 2052 NAME 



7Z-ENKAB-1.S 
.MAIN. 



.MAIN, 



C9 



PE 
^0 

F2 
OEU' 

AF 
3C 
52 
0?E?' 

D6 
30 

n 

OA 

FA 
0E32' 

Do 

07 

FE 
10 

FA 
0E32' 

AF 
3C 
32 
02E2' 

C9 



OEU 
0E15 
0E15 
0E15 
0E15 
0E15 
0E15 
0E15 
0E15 
0E15 
0E15 
0E15 
0E15 
0E16 
0E17 
0E17 
0E18 
OEIA 
0E1A 

OEie 

OEU 

0E1D 

0E1F 

0E1F 

0E20 

0E21 

0E21 

0E22 

0E23 

0E23 

0E2A 

0E26 

0E26 

0E27 

0E28 

0E28 

0E29 

0E2A 

0E2A 

0E2B 

0E2D 

0£?D 

0E2E 

0E2F 

0E30 

0E32 

0E32 

0E33 

0E33 

0E33 

0E35 

0E33 

0E33 

0E33 

0E33 

0E53 

0E33 



22A0 

22A1 

22^2 

22;3 

224A 

22A5 

22A6 

22^*7 

22A8 

22A9 

2250 



B 6 
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.BYTE ''0311 

*************H**ik*****i»********'^******<***************** ********************* 

ASCII TO BIN 

THIS Routine converts an ascjj char to a binary number 

IF THE CHAR IS OUT OF RANGE ERROR IS SE I 

**********»**H***********'^H^****t******************************************** 



1$: 



2251 
2252 

225.3 
2254 
2255 
2256 
2257 
2258 
2259 



2260 3S: 



2261 
2262 
2263 
226^^ 
2265 
^266 
2267 
2268 
2269 
2270 



ASCJI TO BIN: 

" TBYTE 

.BYTE 



.BYTE 
.WORD 

.BYTE 
.BYTE 
.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.BYTE 

.BYTE 

.WORD 

.BYTE 
.BYTE 

.BYTE 
.BYTE 

.BYTE 

• WORD 

.BYTE 
.BYTE 
.BYTE 

.WORD 

.BYTE 



CPI <*X30> 

*0376 

'^X30 

JP 1$ 

^0362 

<1$-HEAD> 

SET ERROR 

-^0250 1 A 

*0A ! <8*A> 

*062 

<ERROR-HEAD> 

SUI <*X30^ 

^^0326 

^X30 

CPI <*XA> 

*0376 

*XA 

JM 3$ 

*0372 

<3$"HEAD> 

SUI 7 

^0326 

7 

CPI <*X10> 

''0376 

^XIO 

JM 3$ 

*037? 

<3$-HEAD> 

SET ERROR 

-^0250 ! A 

"■0^ ' <8*A> 

^^062 

<ERROR-HEAD> 

RET 

'^0311 



;with A 



;CHAR BELOW RANGE 



;with A 



;CHAR ABOVE RANGE 



******* ****»**«»**t<i***************i^**************************************** 

SKIP TO SPEC 

THIS^RODTINE SKIPS TO THE NEXT SPECIAL CHAR IN THE INPUT STRING 
THEN MOVES ONE MORE. (WHICH SHOULD BE THE BEGINING OF THE NEXT WORD.) 
11 ALSO LEAVES A COUNT IN SKIP CNT FOR THE NUMBER OF CHARS SPANNED 
AT END IT MOVES 10 CHARS FROM THE NOW POINTER INTO TEMP BUF 



iZZ-ENK.AB-1.5 .MAIN. 

I. MAIN. 



C 6 
U-JUN-198A 



AF 
32 
0A06* 



?A 

22 
03CD' 



?1 

11 
0?'C3' 

OA OE 
OF 75' 



?A 

0A4D 

7E 

FE 
50 



21 

22 

O^AD* 



FA 
0E61* 



0E33 

0E53 

0E33 

0E33 

0E33 

0E33 

0E33 

0E33 

0E33 

0E33 

0E33 

0E33 

0E33 

0E33 

0E33 

0E3A 

0E35 

0E37 

0E37 

0E37 

0E38 

0E3A 

0E3A 

0E38 

0E3D 

0E5D 

0E3D 

0E5E 

OE'iO 

OEAO 

0EA1 

0E^3 

0E43 

OE-iS 

0EA5 

0EA6 

0EA8 

0F48 

0EA8 

0E49 

OEAB 

0E48 

OEAC 

OE-^C 

0E4D 

OEAE 

OEAE 

OEAE 

OEAF 

OEAF 

0E50 

0E5^ 

0£5? 

0E5? 

0E52 

0E53 

OE'^S 



Sequence 67 
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(1) 



2271 
2272 
2273 
227A 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
228? 
2283 
228A 



2285 
2280 



2287 



2288 
2289 



2290 

2291 
2292 



2293 
229/, 



2295 

2296 



2297 
2298 

2299 



2300 
2301 
2302 



2303 



INPUT CONDITIONS: 
TTBUF^PNT 

OUTPUT CONDITIONS: 
SKIP CNT 
TEMP BUF 
TTBUr PNT 
OLD TTBUF 



= POINTS TO CHARS \H THE INPUT LINE 



= fi CHARS SPANNED (SEE NOTE) 

= 10 CHARS FROM POINTER 

= NEW POINTER 

= CHAR POINTER ON ENiRY (FOR RESET WHEN NO tt FOUND) 



NOTE: SPANNED CHARS COUNT DOES NOT INCLUDE THE SPECIAL CHAR 



I I I 



*******»**********»*****(****** *********************************************** 



SKIP TO SPEC: 

" ".BYTE 

.BYTE 

.WORD 



1$: 



.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.BYTE 

.BYTE 

.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 

.BYTE 
.BYTE 



.BYTE 

.BYTE 

.WORD 



.BYTE 
.WORD 



CLEAR SKIP CNT 
^0250 ! A " 
^062 
<SKIP.CNT-HEAD> 

LHLD TTBUF PNT 

*052 

<TTBUF PNT-HEAD> 

SHLD " OLD TTBUF 

*042 

<OLD TT6UF-HEAD> 



;with A 



;POINTER TO INPUT CHARS 
;SAVE OLD POINTER FOR ERRORS 



;SAVE OLD BUFFER FOR ERRORS 
«TEMP BUF-HEAD>&*XFF00>/256 



LXI H,TEMP BUF 

<H*8> I 1 

<TEMP BUF-H£AD>&255 

LXI ■ D.OLD TEMP^BUF 

<D*8> I 1 

<OLD TEMP BUF-HEAD>6255 , «OLD TEMP BUF-HEAD>&''XFFO0>/256 

MVI " CTIO 

<C*8> i 6 , 10&255 

CALL MOVER R 

'^031S 

<M0VER.R-HEAD> 

LHLD TTBUF PNT 

-^052 

<TrBUF PNT-HEAD> 

MOV " A,M 

*0100 I <A*8> ! M 

CPI HEX 30 

^^0376 

HEX. 30 

INX H 

<H*8> : 3 

SHLD TTBUF PNT 

-^042 

<TTBUF PNT"HEAD> 



;SPEC CHAR ARE <30 HEX 

;M0VE TO NEXT INPUT CHAR 
;ST0RE NEW POINTER, NOTE: 



IFPOS 
-^0572 

<2035$-h:ad> 

CPI HEX 3A 



THESE 2 INSTRUCTIONS DO 
NOT AFFECT CONDITION CODES 
IF NOT SPECIAL CHAR 



;SEE IF : (ALSO SPECIAL CHAR) 



L 



ZZ-ENKAB-1.5 .MAIN 

.MAIN. 



FE 
3A 

CA 
0E61' 

21 
OA'06' 

3A 



C3 
0E6A' 



OA OE 

11 
OA'OE' 

CD 
0F75' 

C9 



C5 
0E^8' 



?A 
006C* 

22 
00C2' 

CD 



OE55 

0E56 

0E57 

0E57 

0E58 

0E5A 

0E5A 

0E58 

0E5D 

0E5D 

0E5E 

0E5E 

0E5E 

0E5F 

0E61 

0E61 

0E61 

0E63 

0E63 

0E6A 

0E66 

0E66 

0E67 

0E69 

0E69 

0E6A 

0E6A 

0E6A 

0E6A 

0E6A 

0E6A 

0E6e 

0E6D 

0E6D 

0E6D 

0E6D 

0E6D 

0E6D 

0E6D 

0E6D 

0E6D 

0E6D 

0E6D 

0E6D 

0E6D 

0E6D 

0E6D 

0E6D 

0E60 

0E6D 

0E6D 

0E6E 

0E70 

0E70 

OE?! 

0E73 

0E73 



230A 

2305 

2306 

2307 
2308 

2309 
2310 

2311 

231? 

2313 
23H 

2315 
2316 



2317 
2318 
2319 
2320 
2321 
2322 
2523 
2324 
2325 
2526 
2327 
2528 
2529 
2330 
2331 
2332 
2333 
2334 



2335 



2536 



2055$: 
2$: 



.BYTE 

.BYTE 

.BYTE 

.WORD 

.8YTE 
.BYTE 

• BYTE 



.BYTE 
.WORD 



.BYTE 

.BYTE 
• BYTE 

.BYTE 
.WORD 

.BYTE 



2034$: 



D 6 

14-JUN-1984 Fi 

U-JUN-1984 1 
14-JUN-1984 1 

*0376 

HEX 3A 

JZ ■ 2$ 

*0312 

<2$-HEAD> 

LXI H,SKIP CNT 

<H*8> I 1 

<SKIP CNT-HEAO>6255 , 

INR " M 

-^04 ! <8*M> 

ELSE 

*0303 

<2034$-HEAD> 

MVl CJO 

<C*8> : 6 , 10&255 

LXI O^TEMP BUF 

<D*8> ! 1 

<TEMP 8UF-HEAD>S255 , 

CALL " MOVER R 

^0315 

<MOVER R-HEAD^ 

RET " 

*0311 

ENDIF 



.BYTE 
.WORD 



J MP 

*0303 

<1$-HEAD> 



1$ 
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;JUMP IF : 



«SKJP CNT--HEAD>8^XFF00>/256 

; INCREMENT SPANNED CHAR CNT 



;IF SPECIAL CHARACTER 



; GENERATE LOCAL SYMBOL NAME 



«TEMP BUF-HEAD>B*XFF00>/256 

;PUT 10 CHARS INTO TEMP.BUF 

;GET OUT OF LOOP 



; GENERATE LCL 2034 NAME 
;L0OP UNTIL SPECIAL CHAR 



62 ; 
(1) : 



READ WCS R 

THIS"R0UTINE READS 3 BYTES OF DATA FROM THE WCS TO CSR VALUE USING 
THE ADDRESS IN WCS ADDRESS. ALSO A NOP IS PLACED IN THE CSR TO PREVENT 
THE MACHINE FROM ODiNG NASTY THINGS 

INPUT CONDITIONS: 

WCS^ADDRESS HAS WCS ADDRESS TO READ 

OUTPUT CONDITIONS: 

CSR_VALUE AND WCS_VALUE CONTAIN THE VALUE OF THE WORD READ 

**************************************************************************** 



READ WCS R: 

.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 



LHLD WCS ADDRESS 

*052 

<WCS ADDRESS-HEAD> 

5HLD" UPC VALUE 

*042 

<UPC VALUE"HEAD> 

CALL" LOAD.UPC^R 

*0315 



;6ET ADDRESS TO READ 



ZZ-ENKAB-1.5 
.MAIN. 



.MAIN, 
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0F19' 



CO 
OECA' 



23 D3 
22 D3 



CD 

0EE7' 



21 
00'B8' 

11 
00*B4' 

CD 
0F5F' 



C9 



2fi< 
006C' 

22 

00C2' 

CD 

0F19* 



TD 
OECA' 



0E7A 

0E76 

0E76 

0E76 

0E77 

0E79 

0E79 

0E79 

0E7B 

0E7B 

0E7D 

0E7D 

0E7D 

0E7E 

0E80 

0E80 

0E80 

0E81 

0E83 

0E83 

0E8A 

0E86 

0E86 

0E87 

0E89 

0E89 

0E89 

0E8A 

0E8A 

0E8A 

0E8A 

0E8A 

0E8A 

0E8A 

0E8A 

0E8A 

0E8A 

0E8A 

0E8A 

0E8A 

0E8A 

0E8A 

0E8A 

0E8A 

0E8B 

0E8D 

0E8D 

0E8E 

0E90 

OE90 

0E91 

0E93 

0E93 

0E93 

0E94 

0E96 

0E96 



2337 
2338 



2339 
23AO 

23A1 

23A2 
23^3 



23AA 
2345 



2346 



2347 



2348 
2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2559 

2360 

2361 

2362 

2363 

2364 

2365 



2366 
2367 



2368 
2369 



2370 
2371 



.WORD 



14-JUN-1984 15:49:51 DRB0:CBALL.£NKABJENKAB.MAC;3 
<LOAD UPC R-HEAD> 



(1) 





CALL NOP CSR R 


.BYTE 


*0315 " " 


.WORD 


<NOP_CSR_R-HEAD> 




OUT SETSS 


.BYTE 


*0323 , SETSS&255 




OUT CLRSS 


.BYTE 


*0323 , CLRSS&255 




CALL LOAD CSR R 


.BYTE 


'^031 5 


.WORD 


<L0AD.CSR_R"HEAD> 




LXI H,CSR VALUE 


.BYTE 


<H*8> ! 1 


.BYTE 


<CSR VALUE"HEAD>8255 




LXI D,WCS VALUE 


.BYTE 


<D*8> ! 1 


.BYTE 


<WCS VALUE"HEAD>&255 




CALL MOVER 3 R 


.BYTE 


^0315 


.WORD 


<M0VER_3_R'-HEAD> 




RET 


.BYTE 


*0311 



;S1N6 STEP MACHINE TO GET 
;register A 

;WCS VALUE INTO CSR 
/register A 

;READ IT OUT 



«CSR_VALUE-HEAD>&*XFF00>/256 
«WCS VALUE-HEAD>S*XFF00>/256 



**************************************************************************** 

WRITE WCS R 

THIS ROUTINE WRITES 3 BYTES OF DATA TO THE WCS FROM WCS.VALUE 

BEFORE THE WRITE OCCURES PARITY IS CALCULATED ON THAT 3 BYTE WCS WORD 

AND PLACED IN BIT 23. 

INPUT CONDITIONS: 

WCS ADDRESS HAS WCS ADDRESS TO READ 

WCS'BAD PARITY = FOR GOOD PARITY, 1 FOR BAD PARITY 

PARTTY^On = FOR NO PARITY CALC, 1 TO CALCULATE PARITY 

**************************************************************************** 



WRITE WCS R- 

.5yie 

.WORD 

.BYTE 

.WORD 

.BYTE 
.WORD 



.BYTE 
.WORD 



LHLD WCS ADDRESS 

^052 

<WCS ADDRESS"HEAD> 

SHLD" UPC VALUE 

*042 

<UPC VALUE"HEAD> 

CALL" LOAD UPC.R 

*0315 

<LOAD,UPC_R-HEAD> 

CALL NOP CSR R 
^0315 " " 
<NOP CSR R-HEAD> 



;GET ADDRESS TO WRITE 



SET 



WCS^CALC 



;KEEP MACHINE IDLE. 



; PARITY CALC ON W^S 






ZZ-ENKAB-1,5 .MAIN 

.MAIN. 



AF 
3C 
32 
058A' 

21 
O0'B4» 

CD 
08C8' 

AF 
32 
05 8A' 



21 
00*86 

7E 



08 D3 
2B 

7E 

09 D3 
2B 

7E 
OA D3 

37 03 

36 03 

C9 



0E96 

0E97 

0E98 

0E99 

0E9B 

0E9B 

0E9C 

0E9E 

0E9E 

0E9F 

0EA1 

0EA1 

0EA2 

0EA3 

0EA5 

0EA5 

0EA5 

0EA6 

0EA8 

0EA8 

0EA9 

0EA9 

0EA9 

OEAB 

OEAB 

OEAC 

OEAC 

OEAC 

OEAO 

OEAD 

OEAF 

OEAF 

OEBO 

OEBO 

OEBO 

0E81 

0EB1 

0E83 

0EB3 

0E83 

0EB5 

0EB5 

0E87 

0E87 

0E88 

0E68 

0EB8 

0EB8 

0E88 

0EB8 

0E68 

0E88 

0E88 

0EB8 

0E88 

0E88 

0E88 



2372 
2373 
2374 



2375 
2376 



2377 

2578 
2379 

2380 

2381 
2382 

2383 

2384 

2385 
2386 

2387 

2388 
2389 

2390 
2391 

2392 
2395 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 



.BYTE 
.BYTE 
.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 

.BYTE 
.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 



.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 

.BYTE 
.BYTE 

.BYTE 
.BYTE 
.BYTE 
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(1) 



'^0250 ! A 

*04 ! <8*A> 

*062 

<WCS CALC-HEAD> 

LXI " H,WCS VALUE 

<H*8> ! 1 

<WCS VALUE-HEAD>&255 , 

CALL PARITY^CALC 

*0315 

<PARITY CALC-HEAD> 

CLEAR "WCS CALC 

*O250 ! A 

*062 

<WCS,CALC-HEAD> 

LXI H,WCS.VALUE+2 

<H*8> 1 1 

<WCS VALUE+2-HEAD>&255 

MOV ■ A,M 

*0100 ! <A*8> ! M 



OUT 

*0323 , 
DCX 
<H*8> ! 



WCS80 

WCSB0%255 

H 

11 



MOV A,M 

*0100 I <A*8> I M 

OUT WCS81 

^^0323 , WCSBia255 

DCX H 

<H*8> ! 11 



MOV 
*0100 
OUT 
'^0323 

OUT 

*0323 

OUT 

*0323 

RET 

'^0311 



A,M 
<A*8> 
WCS82 
WCSB26255 



M 



SETWCK 
SETWCK&255 
CLRWCK 
CLRWCK&255 



;with A 

;CALC PARITY ON WCS WORD 
«WCS VALUE-HEAD>&*XFF00>/256 



;with A 



; CLEAR FLAG 



«WCS VALUE+2-HEAD>6*XFFO0>/256 
" GET LOW BYTE 



; regis te 



;registe 
;reg1ste 



CLOCK INTO BYTE OF LATCH 
A 
INC POINTER TO NEXT BYTE 



GET MIDDLE BYTE 



CLOCK INTO BYTE 1 OF LATCH 
;register A 

INC POINTER TO NEXT BYTE 



GET HIGH BYTE 

CLOCK INTO BYTE 2 OF LATCH 
A 



CLOCK 24 BITS INTO WCS 
• A 

CLEAR WCS CLOCK 
/register A 



SHIFTER R 

THIS ROOTINE SHIFTS N BYTES OF DATA LEFT 1 BIT AT THE ADDRESS POINTED 

TO BY SHIFT^PNT. 

INPUT CONDITIONS: 

SHIFT PNT = POINTS TO COUNT OF NUMBER OF BYTES TO SHIFT 
DATA TO BE SHIFTED FOLLOWS IN NEXT N BYTES 

CARRY Bi: GETS MSB, CARRY MAY ALSO BE USED AS 



ZZ-ENKAB-1,5 .MAIN. 

.MAIN. 



F5 

2^ 

0068' 

00 06 
09 
F1 

7E 
17 
77 
CD 
C8 
2B 



C3 
OECV 



21 
00'72' 

11 
00'88' 

CD 
0F5F' 

5A 
006^' 

12 



0E88 

0EB8 

0EB8 

0EB8 

0EB8 

0EB8 

0EB9 

0EB9 

OEBA 

OEBC 

OEBC 

OEBD 

OEBD 

OEBF 

OEBF 

OECO 

OECO 

0EC1 

0EC1 

0EC1 

0EC2 

OEC? 

0EC3 

0EC3 

OEC^ 

OEC^ 

0EC5 

0EC5 

0EC6 

0EC6 

0EC7 

0EC7 

0EC7 

0EC8 

OECA 

DEC A 

OECA 

OECA 

OECA 

OECA 

OECA 

OECA 

OECA 

OECA 

0EC8 

OECD 

OECD 

OECE 

OEDO 

OEDO 

0E01 

0ED5 

0E03 

0ED4 

0ED6 

0ED6 

0ED7 



2A05 
2A06 
2A07 
2A08 
2A09 

2A10 



2^11 

2A12 

2A13 

2^^i^ 

2A15 
2A1o 

2417 

2418 

2A19 

2420 

2421 

2422 
2423 



2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 



2433 
2434 
2435 
2436 
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INPUT TO THE SHIFT 

*»**HH***)»H<(****<t***Hl^*************************************-*** ************** 



SHIFTER.R: 

.BYTE 

.BYTE 
.UORD 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

SHiFTERI R: 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 



$PSW 
<8*$PSW> 
SHIFT PNT 



PUSH 

-^0305 

LHLO 

'^052 

<SHIFT PNT-HEAD> 

MOV " CM 

*O1O0 ! <C*8> I 



M 



8,0 

6 , 0&255 

B 

9 

$PSW 

<8*$PSW> 



A.M 



M 



.BYTE 
.WORD 



MVI 

<B*8> 

DAD 

<B*8> 

POP 

*0301 

MOV 

*O1O0 I <A*8> 

RAL 

'^027 

MOV M,A 

*0100 1 <M*8> 

DCR C 

''OS : <8*C> 

RZ 

*O310 

DCX H 

<H*8> I 11 



JMP SHIFTERI R 

*O303 

<SHIFTER1 R-HEA0> 



;SAVE CARRY 

/POINTER TO SHIFT DATA 

GET COUNT IN BYTES 
MAKE COUNT IN REG PAIR 
ADD COUNT , GOTO LAST BYTE 

;MOVE BYTE 1 LEFT 

;CARRY = ROTATE IN BIT NEXT BTYE 



DEC BYTE COUNT 
RETURN IF ZERO 
MOVE POINTER TO NEXT BYTE 

.'REPEAT UNTIL BYTE COUNT=0 



*n*»******#t»************************************************************ 

NOP CSR P: 

THIS ROOTINE load a nop into the CSR 

*************»*»*******«f**i^**r*n*********it******r************************* 



NOP CSR R: 

.BYTE 

.byte 

.BYTE 
.BYTE 

.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 

.WORD 



LXI H,NOP INST 

<H*8> ! 1 

<NOP INST-HEAD>£255 

LXI " D^CSR.VALUE 

<D*8> I 1 

<CSR VALUE-HEAD>£255 

CALL" M0VER.3.R 

*0315 

<MOVER 3 R-HEAD> 

LDA ~ Parity on 

*072 

<PARiTY 0N-HEAD> 

STA "temp BYTE 

*062 

<TEMP BYTE-HEAD> 



«N0P INST-HEAD>B*XFF00>/256 



«CSR VALUE"HEAD>6'^XFF00>/256 

;M0VE NOP TO CSR SAVE AREA 



;SAVE PARITY ON FLAG 
; STORE IN TEMP BYTE 



ZZ-ENKAB-1.5 .MAIN 
.MAIN, 



AF 
32 
006A' 



CD 
0EE7' 



3A 

32 
006A' 



C9 



A2 03 



21 
00'88' 

CD 
08C8' 



21 
00'55' 

C5 

18 3E 

11 



87 DB 
IF 

21 
00'8A' 

03 OE 



0ED9 

0ED9 

OEDA 

OEDB 

OEDD 

OEDD 

OEDD 

OEDE 

OEEO 

OEEO 

OEEO 

0EE1 

0EE3 

0EE3 

OEEA 

0EE6 

0EE6 

0EE6 

0EE7 

0EE7 

0EE7 

0EE7 

0EE7 

0EE7 

0EE7 

0EE7 

0EE7 

0EE7 

0EE7 

0EE7 

0EE9 

0EE9 

0EE9 

OEEA 

OEEC 

OEEC 

OEED 

OEEF 

OEEF 

OEEF 

OEFC 

0EF2 

0Ef3 

OEF^ 

0EF6 

0EF7 

0EF7 

0EF7 

0EF7 

0EF9 

0EF9 

OEFA 

OEFA 

OEFB 

OEFD 

OEFD 

OEFF 
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2A37 



2438 
2439 



2440 
2441 



2442 



2443 
2444 

2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 

2456 
2457 



2458 



2459 
2460 



;with A 



CLEAR PARITY ON 
.BYTE *O250 ! A 
.BYTE ^^062 
.WORD <PAR1TY_0N-HEAD> 

CALL LOAD CSR R 
.BYTE '^0315 
.WORD <LOAD,CSR_R-H£AD> 

LDA TEMP BYTE 
.8YTE ^072 
.WORD <TEMP 8YTE-HEAD> 

STA " PARITY ON 
.BYTE '^062 
.WORD <PARITY.ON-HEAD> 

RET 
.BYTE *0311 



********H*H********rH********<i*****'****i*i****c^** ************************** 



;CALC NO PARITY ON NOP 

;LOAD IT 

;6ET OLD PARITY^ON FLAG 
;RESTORE FLAG 



LOAD CSR R 

THIS"R0UTINE LOADS THE CSR FROM THE CSR VALUE AREA, 

ALSO CSR VALUE AREA GETS THE VALUE OF TRE CSR 



************************************************************************ 



LOAD CSR^R: 

.BYTE 



.BYTE 
.BYTE 



OUT 
'^0323 



VSHIFT 
VSHIFT6255 



2461 
2462 

2463 

2464 

2465 
2466 



2035$; 



.8YTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



• BYTE 

.BYTE 

.BYTE 
.BYTE 

.BYTE 



LXl H,CSR VALUE 

<H*8> I 1 

<CSR VALUE"HEAD>&255 

CALL" PARITY CALC 

-^0315 

<PARITY_CALC-HEAD> 

DO 24 

<H*8> : 1 
<DOLOOP-HEAD>&255 

*0100 1 <8*8> ! M 

*0305 .' <8*8> 

<A*8> ! 6 , 24&255 

*0100 ! <M*8> ! A 



IN CSR23 

^0533 , CSR23S255 

RAR 

*037 

LXl H,CSR VALUE+2 

<H*8> ! 1 

<CSR VALUE+2-HEAD>6255 

MVl " C,3 

<C*8> I 6 , 3^255 

CALL SHIFTERl.R 



;SET V-BUS SHIFT MODE 
.■register A 

;CALC PARITY ON NEW CSR VALUE 

«CSR.VALUE-HEAD>&*XFF00>/256 



;SHJFT 24 BITS 
«D0LOOP-HEAD>6*XFF00>/256 



;GET OLD CSR DATA 
;to register A 

;»UT CSR 23 IN CARRY 

.•POINTER TO LAST CSR DATA BYTE 

«CSR.VALUE+2"HEAD>a*XFF00>/256 
;BYTES TO SHIFT 

; CARRY = MSB OF NEW CSR DATA ON 



ZZ-ENKAB-1.5 .MAIN. 
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U-JUN-198A Fiche 1 Frame 16 Sequence 73 

U-JUN-198A 16:08:17 VAX-ll Macro V03-0T Page 67 
U-JUN-198A 15:49:51 DRB0:CBALL.ENKAB:ENKAB.MAC;3 (1) 



CD 
OECr 



38 03 

D2 
OF 09* 

39 D3 



25 D3 
2A D3 



PI 
00*55* 
35 

a 

0EF7' 
CI 
70 



A3 03 
C9 



A2 03 



21 

oo*cr 

22 
0068' 



B7 



CO 
0E88' 



OEfF 

OFOO 

OF02 

OF02 

0F02 

OF02 

OF04 

OFOA 

0F05 

0F07 

0F07 

OF09 

OF 09 

OF 09 

OF OB 

OF 08 

OFOD 

OFOD 

OFOD 

OFOE 

0F10 

OF 11 

0F12 

OFU 

OF 15 

0F16 

0F16 

0F16 

0F18 

0F18 

0F18 

0F19 

0F19 

0F19 

0F19 

0F19 

0F19 

0F19 

0F19 

0F19 

0F19 

0F19 

0F19 

0F16 

0F18 

0F18 

0F1C 

OFIE 

OFIE 

OFIF 

0F21 

0F21 

0F21 

0F22 

0F22 

OF 22 

0F?3 



2A67 
2468 
2A69 

2470 



2471 

2472 
2473 

2474 

2475 
2476 



1$: 



2477 
2478 

2479 
2480 

2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
249.0 
2491 

2492 
2493 



2494 



2A95 
2A96 

2497 
2498 



.BYTE 


^^031 5 




.WORD 


<SHIFTER1_R-HEAD> 








; RETURN 




OUT CLRCSR 


;CLEAR CSR INPUT 


,6YTE 


*0323 , CLRCSR&255 


; register A 




JNC 1$ 


;DON*T SET INPUT IF CARRY 


.BYTE 


*0322 




.WORD 


<U"HOAD> 






OUT SETCSR 


;ELSE SET CSR INPUT 


.BYTE 


*0323 , SETCSRIt255 


.•register A 




OUT SETCSK 


;SET UPC CLOCK 


.BYTE 


*0323 , SETCSK&255 


; register A 




OUT CLRCSK 


; CLEAR UPC CLOCK 


.BYTE 


*0323 , CLRCSK&255 
ENDDO 


.•register A 


.BYTE 


<H*8> ! 1 




-BYTE 


<DOLOOP-HEAD>&255 , 


«D0LOOP-HEAD>8*XFF00>/256 


.BYTE 


•^05 ! <8*M> 




.BYTE 


*O302 




.WORD 


<2035$-HEAD> 




■ BYTE 


'^0301 ! <8*B> 




.BYTE 


*0100 1 <M*8> ! B 






OUT VNORMl 


;SET V-BUS TO NORMAL MODE 


• BYTE 


^^0323 , VN0RML8255 
RET 


;register A 


■ BYTE 


^^0311 





•**fti^it«<ki^it*t^«ik««'**%t*iit^<^i^ft«***Ar*******«***i^**'«cAit'ik*iki^*1kft«t*ilr*****'kil^''lc*'A:*1r4t'*ii[-(t««r 



LOAD UPC R 

THIS"R0UTlNE LOADS THE UPC FROM THE UPC VALUE AREA, 

ALSO UPC VALUE AREA GETS THE VALUE OF TRE UPC 



**********<tir****«**<r»<tn*************[**************************************** 



L0AP_UPC_R: 

.BYTE 



.8YTE 
.BYTE 



.BYTE 
.WORD 



.BYTE 



.BYTE 
.WORD 



OUT VSHIFT 
'^0323 , VSHIFT&255 

LXl H,UPC SHIFT 

<H*8> I 1 

<UPC SHIFr-HEAD>8255 

SHLD" SHIFT PNT 

^042 

<SHIFT_PNT-HEAD> 

ORA A 
-^0260 ! A 

CALL SHIFTER R 

-^0315 

<SHIFTER R-HEAD> 



;SET V-BUS SHIFT MODE 
;register A 

;POINTER TO UPC DATA BUFF 

«UPC_SHIF T-HEAD>&*XFF00>/256 



; CLEAR CARRY 

;LEFT JUST. 15 BITS 



r" 



ZZ-ENKAB-1.5 .MAIN 

.MAIN. 





0F25 


2499 










0F25 


2500 




DO 


15 


?1 


0F25 




.BYTE 


<H*8> I 


1 


O0'55* 


0F26 




.BYTE 


<D0LOOP 


-HEAD>&255 . 


46 


0F28 




.BYTE 


'^0100 ! 


<B*8> 1 M 


C5 


0F29 




.BYTE 


*0305 ! 


<8*B> 


OF 3E 


0F2A 




.BYTE 


<A*3> 1 


6 , 15S255 


11 


0F2C 
0F2D 
0F2D 


2036$: 
2501 


• BYTE 


*O100 1 


<M*8> 1 A 




0F2D 


2502 




IN 


UPC 14 


84 D8 


0F2O 




.BYTE 


*0333 , 


UPC14&255 




0F2F 


2503 




RAR 




IF 


0F2F 




.BYTE 


-^037 






OF 30 


2504 




CALL 


SHIFTtR_R 


CD 


OF 30 




.BYTE 


•^0315 




0E88' 


0F31 




.WORD 


<SHIFTER_R-HEAD> 




OF 33 


2505 










0F33 


2506 




OUT 


CLRUPC 


A8 D3 


OF 33 




.BYTE 


*032i , 


CLRUPCa255 




0F35 


2507 




IFC 




02 


0F35 




.BYTE 


*0322 




0F3A' 


OF 36 




.WORD 


<2037$- 


HEAD> 




0F38 


2508 




OUT 


SETUPC 


A9 D3 


or 38 




.BYTE 


^^0323 . 


SETUPC&255 




0F3A 


2509 




ENDJF 






0F3A 


2037$: 










0F3A 


2510 










0f3A 


2511 




OUT 


SETUPK 


21 D5 


0F5A 




.BYTE 


^0323 , 


SETUPK6255 




0F3C 


2512 




OUT 


CLRUPK 


26 D3 


0F3C 
0F3E 


2513 


.BYTE 


'^0323 , 


CLRUPK&255 




0F3E 


2514 




ENDDO 




21 


0F3E 




.BYTE 


<H*8> 1 


1 


OC'55' 


0F3F 




.BYTE 


<DOLOOP 


-HEAD>6255 


55 


0F41 




.BYTE 


*05 ! <8*M> 


C2 


0F42 




.BYTE 


*O302 




Of 2D* 


0F43 




.WORD 


<2036$- 


HEAD> 


CI 


GF45 




.BYTE 


*0301 ! 


<8*B> 


70 


0F46 
OF 4/ 


2515 


.BYTE 


*0100 ! 


<M*»8> ! B 




0F47 


2516 




OUT 


VNORML 


A3 03 


0F47 
UF49 


2517 


.BYTE 


*0323 , 


VNORML6255 




CF49 


2518 




OUT 


CLRACK 


A9 03 


0F49 




.BYTE 


''0323 , 


CLRACK&255 




0F4B 


2519 




IF 


SETACK.FLG 


^A 


0F48 




.BYTE 


*072 




0405* 


0F4C 




.WORD 


<SETACK 


_FLG-H£AD> 


OF 


0F4E 




.BYTE 


^^017 




02 


0F4F 




.BYTE 


*0322 




OF 54* 


OF 50 
0F52 


25?0 


.WORD 


<2038$- 


HEAD> 




OF 5c' 


2521 




OUT 


SETACK 


A8 D3 


0F5? 




.BYTE 


*0323 , 


3ETACK&255 




0F54 


2522 
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;SH1FT 15 BITS 
«D0L00P-HEAD>&'^XFF00>/256 



; to register A 

;PUT UPC 14 IN CARRY 

; CARRY = MSB ON RET 



;SET = UPC SER IN 
; register A 



;SET = 1 UPC SER IN 
;register A 

; GENERATE LCL 2037 NAME 

;SET UPC CLOCK 
-•register A 

; CLEAR UPC CLOCK 
;register A 



«DOLOOP-HEAD>&''XFFO0>/256 



;SET V-BUS TO NORMAL MODE 
;register A 

; CLEAR CONSOLE ACKNOWLEDGE 
; register A 

;MUST SET UP CONSOLE ACKNOWLEDE 



;BEFORE RETURNING 
;SET CONSOLE ACKNOWLEDGE IF 
;register A 

; FLAG 5Er 



ZZ-ENKAB-1.5 .MAIN. 

.MAIN. 



C9 



1A 
BE 
CO 
21 
15 
OD 
i2 



0F5A 

0F5A 

0F5A 

0F5A 

OFS-:. 

OF 55 

0F55 

0F55 

0F55 

0F55 

0F55 

0F55 

0F55 

0F55 

0F55 

OF55 

0F55 

0F55 

OF 55 

0F55 

0F55 

0F55 

0F55 

0F55 

0F55 

OF 56 

0F56 

0r57 

0F57 

OF 58 

0F58 

OF 59 

OF 59 

0F5A 

0F5A 

OF 58 

OF 58 



OF55' 0F5C 
0F5E 



C9 



0F5E 
0F5F 
0F5F 
0F5F 
0F5F 
0F5F 
0F5F 
0F5F 
0F5F 
0F5F 
CF5F 
0F5f 
0F5F 
0F5F 
0F5F 
0F5F 
0F5F 
OF.SF 
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2525 

252A 
2525 

25?6 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
253A 
2535 
2536 
2537 
2538 
2539 
25^0 
25A1 
25^2 
25^5 
254A 

25';5 

25A6 

25A7 

25^8 

25A9 

2550 

2551 

2552 
2553 
255^ 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
256A 
2565 
2566 
2567 

2568 



2038S: 



.BYTE 



ENDIF 



RET 
^^0311 



; GENERATE LCL 2038 NAME 



COMPARE R 

THIS RODTJNE is used BY THE STRUCTURED MACRO SET AND MAY ALSO 

BE CALLED DIRECTLY. 

INPUT CONDITIONS: 

H + L = POINTER TO DATA FIELD 1 
D + E = POINTER TO DATA FIELD 2 
C = COUNT IN BYTES FOR COMPARISON 

OUTPUT CONDITIONS: 

CONDITIONS CODES ARE SET 

*H*************************************** *;i^*i^*i^H*<k ****************** ******** 



COMPARE R: 

".BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.8YTE 
.WORD 

.BYTE 



LDAX 


D 


<D*8> 


: 10 


CMP 


M 


*0270 


! M 


RNZ 




*0300 




INX 


H ; 


<K*8> 


I 3 


INX 


D 


<D*8> 


! 3 


DCR 


C ; 


*05 ; 


<8*C> 


JNZ 


COMPARE R 


*0302 




<C0MPARE R-HEAD> 


RET 


< 


*0311 





FIELD 2 BYTE 

COMPARED TO FIELD 1 BYTE 

RETURN WITH CC NON ZERO IF NOT SAME 

INCREMENT FIELD 1 POINTER 

INCREMENT FIELD 2 POINTER 

DECREMENT COUNT 

LOOP UNTIL COUNT GONE 

;D0NE - RETURN ZERO CC 



**************************************************************************** 

MOVER.R 

THIS ROUTINE MOVES DATA FROM THE ADDRESS GIVEN IN H+L TO THE ADDRESS 
GIVEN m D+E FOR THE COUNT IN C 

INPUT CONDITIONS: 

H+L = SOURCE ADDRESS 
D+E ^ DEST. ADDRESS 
C = LENGTH 

OUTPUT CONDITIONS: 

REGISTERS ARE INCREMENTED DURING THE MOVE, SO THEY 
ARE POINTING TO THE LOCATION AFTER THE DATA 



r 



ZZ-ENKAB-1.5 
.MAIN. 



.MAIN. 



03 OE 

C3 
0F75 



2:1 
06'76' 

n 

00'A9' 

C3 
OF 73' 



11 
00'58* 

?1 

00'A9' 



OA OB 

^2 
^3 

13 

OD 

C8 

C3 
OF 75' 



?A 



0F5F 

0F5F 

0F5F 

0F5F 

0F5F 

0F61 

0F61 

0F62 

0F6A 

0F6A 

0F6A 

0F6A 

0F65 

0F67 

0F67 

0F68 

0F6A 

0F6A 

0F6B 

0F60 

0F6D 

0F6D 

0F6D 

0F6E 

OF 70 

OF 70 

0F71 

CF73 

OF 73 

0F73 

OF 75 

0F75 

OF 76 

OF 76 

0F77 

0F77 

OF 78 

OF 78 

OF 79 

OF 79 

0F7A 

0F7A 

OF 78 

OF 78 

0F7C 

0F7E 

0F7E 

0F7E 

OF 7E 

0F7E 

OF 7E 

OF 7E 

OF 7E 

0F7E 

0F7E 

0F7E 

0F7E 



2569 
2570 
2571 
2572 

2573 



2574 
2S75 
2576 



2577 



2578 



2579 
2580 
2581 



2582 

2583 
2584 

2585 

2586 

2587 

25btJ 
2589 
2590 
2591 



2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
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7G 
(1) 



MOVER 3,R: 

.BYTE 

.BYTE 
.WORD 

MOV_INPUT_DATAO: 

.BYTE 
.BYTE 

.BYTE 
.BYTE 

.BYTE 
.WORD 



MVI C,3 

<C*8> I 6 , 3B255 

JHP MOVER R 

*0303 

<H0VER R-HEAD> 



LXI HJNPUT NUM 

<H*8> I 1 

<1NPUT NUM-HEAD>&255 

LXI " D,DATA0 

<D*8> ! 1 

<DATA0-HEAD>£255 

JMP MOVER 4 R 

*0303 

<MOVER 4 P-HEAD> 



;MOVE 3 TO COUNT 
;G0 MOVE THREE BYTES 

; SOURCE IN JNPUT.NUM 

«]NPUT NUM-HEAD>S*XFF00>/256 
" ;DEST IS DATA0-DATA3 

«DATA0-HEAD>&*XFFOO>/256 
;MOVE A BYTES 



MOV DATAO HEX8UF : 

LXI D,HEX BUF 

.BYTE <D*8> I 1 

.BYTE <HEX BUF-HEA0>£255 
MOV FROM DATAO: LXI " H, DATAO 

TBYTE <H*8> ! 1 

.BYTE <DATA0-HEAD>6255 , 



MOVER 4 R: 

*■ .8YTE 

MOVER R: 

~ .BYTE 

.BYTE 

• BYTE 

.BYTE 

.8YTE 

.BYTE 

.BYTE 

.WORD 



MVI 

<C*8> 

MOV 

*0100 

STAX 

<D*8> 

I NX 

<H*8> 

I NX 

<D*8> 

DCR 



C,4 

6 , 46255 

A,M 

<A*8> ! M 

D 

2 

H 

3 

D 

3 

C 



*05 : <8*C> 

RZ 

*0310 

JMP 



MOVER R 
'^0303 
<MOVER_R-MEAD> 



;DE ST I NAT I ON IS HEX_BUF 

, «HEX BUF-HtAD>&*XFFO0>/256 

; SOURCE IS DATAO-3 

«DATA0-HEAD>&*XFFOO>/256 

;MOVE 4 TO COUNT 

GET SOURCE DATA 

:PUT AT DESTINATION 



INCREMENT POINTERS 
DECREMENT COUNT 
RETURN IF DONE 
LOOP OTHERWISE 



PR.INT FLG 

THIS Routine prints 5 chars and a space from the pointer temp^word 



print FLG: 

.BYTE 



lhld 

*052 



temp_word 



;P0INTER TO FLAG TO PRINT 



ZZ-tNKAB'I.S .MAIN. 

I. MAIN. 



0O9' 

05 OE 

CD 
1007' 

CD 
1021* 

C9 



OA OE 

C3 
OF 96* 



02 OE 
0(^96' 



01 OE 

?^ 

00'58' 

22 

03EE' 

79 

3^ 

03EC' 



2^ 

0?EE' 

n 



0F7F 

0F81 

0F81 

0F83 

OF 83 

OF 84 

OF 86 

OF 86 

0F87 

OF 89 

0F89 

OF 89 

0F8A 

0F8A 

0F8A 

0F8A 

0F8A 

0F8A 

0F8A 

0F8A 

0F8A 

0F8A 

0F8A 

0F8A 

0F8A 

0F3A 

0F8A 

0F8C 

0F8C 

0F8D 

0F8F 

0F8F 

0F8F 

0F91 

0F91 

OF 92 

0F9A 

OF 94 

OF 94 

OF 96 

0F96 

0F97 

0F99 

OF 99 

0F9A 

0F9C 

0F9C 

0F9D 

OFQp 

U^9E 

OFAO 

OFAO 

OFAO 

OFA"! 

0FA3 

0M5 

CFAC 



2603 
2604 

2605 



2606 
2607 

2608 
2609 
2610 
2611 
2612 
2613 
26U 
2615 
2616 
2617 
2618 
2619 
2620 
2621 

2622 



2625 
2624 

2625 



2626 
2627 

2628 



2629 

2630 
2631 



2652 
2633 



2634 
2655 
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;PRINT THE 5 CHAR 



.WORD 


<TEMP W0RD-HEAD> 




MVl " C.5 


.BYTE 


<C*8> : 6 , 5&255 




CALL PRINTER 


.BYTE 


*0315 


.WORD 


<PRINTER-HEAD> 




CALL SPACE R 


.BYTE 


*0315 


.WORD 


<SPACE.R-HLAD> 




RET 


.BYTE 


*0311 



;AND THE SPACE 



************************************** ***********************************^**** 
PRINT HEX R 

THIS Routine prints hex numbers 

INPUT CONDITIONS: 

C = number of BYTES TO BE PRINTED 
DATA IS IN HEX_BUF 

*4**************************************************************************** 



PRINT HEX 4: 
.5YTE 

.BYTE 
.WORD 

PRINT HEX 2: 

.Syte 

.BYTE 

.WORD 

print hex 1 r: 
" .SyTe 

print hex r: 
" .Syte 

.BYTE 

.BYTE 
.WORD 

.BYTE 

.BYTE 
.WORD 



MVl C,4 
<C*8> I 6 , 4R255 
JMP PRINT HEX R 
*0303 " ' 
<PRINT HEX R-i<EAD> 



C,2 

6 , 2&255 

PRINT^HEX. R 



MVl 

<C*8> 

JMP 

*0303 

<PRINT HEX R-HEAD> 



1$: 



.BYTE 
.WORD 

.BYTE 



MVl CJ 

<C»8> I 6 , 1B255 

LXI H.HEX BUF 

<H*8> I 1 

^HEX 6UF-HEAD>£255 

SHtD" PRINT PNT 

*042 

<PRINT PNT-HEAD> 

MOV " A,C 

*0100 ! <A*8> : c 

STA PRINT CNT 

*062 

<PRINT^CNT-HEAD> 

LHLD PRU'T PNT 

"052 

<PRINT PNT-HEAD> 

MOV ■ A,M 

'^oioo : ;A*8> : M 

RAR 



;L0AD BYTE COUNT WITH 4 
;PRINT FOUR CHARS 

,8YTc COUNT OF 2 
;PRINr 2 CHARS 

;PRINT 1 CHAR 



«HEX eUF-HEAD>&*XFF00>/256 

.•POINTER TO PRINT DATA 



;PRINT COUNT 



;GET FIRST BYTE 



i?Z-tNKAB-1.5 
:.MA1N. 



.MAIN. 
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IF 


OFAA 






0FA5 


2636 


1F 


0FA5 






0FA6 


2637 


IF 


0FA6 






0FA7 


2658 


IF 


0FA7 






0FA8 


2639 


E6 


0FA8 




OF 


0FA9 






OFAA 


2640 


CD 


OFAA 




0FC9* 


OFAB 






OFAD 


2641 




OFAD 


2642 


?A 


OFAD 




03EE' 


OFAE 






0F80 


264 3 


7E 


OFBO 






0FB1 


2644 


23 


CFB1 






0F8? 


2645 


?2 


0FB2 




03b E' 


0F83 






0F65 


2646 


E6 


0FB5 




OF 


0F86 






CFB7 


2647 


-"D 


CFB7 




0FC9' 


0FB8 






OFBA 


2648 




CFBA 


2649 


2' 


OFBA 




•3*EC' 


0F8B 






CF8D 


2650 


35 


OFBD 






0F8E 


2651 


C? 


OFBE 




OF AG* 


OFBF 






CFC^ 


2652 




OFC^ 


2653 


^A 


OFf 




03C^' 


OFC? 






OFtA 


2654 


B7 


CFt; 






0FC5 


2655 




OF(S 




^0^: 


r.TC6 






(Frs 


2656 


l^ 


0^0 8 






0FC9 


2657 




0.-C9 


2658 




0FC9 


2659 




'^F'-9 


2660 




C^C^ 


2661 




r t ,• <; 


2662 




GFro 


2663 



.BYTE 


^03? 




RAR 


.BYTE 


*G37 




RAR 


.BYTE 


•^057 




RAR 


.BYTE 


*037 




ANI <*XF> 


.BYTE 


*0346 


.BYTE 


*XF 




CALL PR HEX DIGIT 


.BYTE 


''0315 " " 


.WORD 


<PR.HfcX_DlGlT-HEAD> 




LHLD PRINT ?NT 


.BYTE 


*052 


.WORD 


<PR1NT PNT-HEAD> 




MOV " A,M 


.BYTE 


*OlOO I <A*8> 1 M 




INX H 


■ BYTE 


<H*8> i 3 




SHLD PRINT PNT 


.BYTE 


•^042 


.WORD 


SPRINT PNT-HFAD> 




ANI " <*XF> 


.BYTE 


*0346 


.BYTE 


*XF 




CALL PR HEX DIGIT 


• BYTE 


"0315 ■ " 


.WORD 


<PR_HEX_DIG1T-HEAD> 




LXI H. PRINT CN^ 


.BVTE 


<rH*8> 1 1 


.BYTE 


<PRiNT CNT-HEAD>&255 




DCR " M 


• BYTE 


*05 : <8*M> 




JNZ IS 


.yYTE 


-^0302 


.WORD 


<1S"HEAp> 




LDA NO SPACE 


.BYTE 


"072 


.WORD 


<N0 SPACE -^''AD> 




CRA" A 


.BYTE 


*O260 : A 




C." SPACL R 


• BYTE 


^^031^ 


.WORD 


< SPACE R-MEAD> 




Kf T 


.BYTE 


-^0311 



;GET FIRST NIBBLE 
;PR1NT HEX DIGIT 



;GET SECOND NIBBLE 



;DECR PRINT COUNT 
«PRINT.CNT-HEAD>&'^XFF0O>/256 

; RE TURN IF DONE 

;GET FLAG 

;SET CONDITION CODES 
;PR1NT SPACE IF NO FLAG 



• »t*t**t****«***iv»****'********»**********»»**»******»********'****»*****<k^**** 



PR hEa DIGIT 

>TS RDjTJNF PRINTS A HEX DIGIT 

THE HEX NL'MBtR IS IN THE AC. 



??-tNKAB-1,5 
.MAIN. 



.MAIN. 



C6 

30 

FE 
3A 

FA 
0FD2' 

C6 
07 

CD 
1027' 

C9 



AF 

5? 

AOBB 



AF 
12 
0057* 



0^ 08 
?F 

06 PB 
?F 

AO 
E6 



0PC9 

0FC9 

0FC9 

0FC9 

0FC9 

OFCA 

0FC8 

0FC8 

OFCC 

OFCD 

OFCD 

OFCE 

OF DO 

OF DO 

CF01 

0FD2 

0FD2 

0FD3 

0FD5 

0FD5 

0FD6 

0FD6 

0FD6 

0FD6 

0FD6 

0FD6 

0FD6 

0FD6 

0FD6 

0FD6 

0FD6 

0FD6 

0FD6 

0FD6 

0FD6 

0FD7 

Of 08 

OFDA 

OF DA 

OFOA 

OFDB 

OFDC 

OFDE 

OFDE 

OFDE 

OFEO 

OFEO 

OFEl 

0FE1 

CFE2 

0FE2 

OFEA 

OFEA 

0FE5 

0FE5 

0FE6 

0FF6 



2664 
2665 
2666 
2667 



^668 
2669 
2670 
2671 

2672 

2673 
267A 
2675 
2676 
2677 
2678 
2679 

2680 
2681 
2682 
2683 
2684 
2685 
2686 



2687 
2688 



2689 
2690 

2691 

2692 

269^ 

269A 

2695 

2696 



U-JUN-1984 Fkhs 1 Frame B7 Seguence 79 

U-JUN-1984 16:08:17 VAX-11 Macro V03-0T Page 
U-JUN-1984 15:49:51 DRB0:C8ALL.ENKAB3ENKAB.MAC;3 



73 < 
(1) 



PR HEX DIGIT; 

" .BYTE 

.BYTE 

.BYTE 
.BYTE 



1$: 



.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 

.BYTE 



AOI 

*0306 

HEX 30 

CPI 

*0376 

HEX 3A 

JM 

*0372 

<1$-HEAD> 



HEX 30 



HEXJA 



1$ 



;ADD FOR 0-9 TO ASCII 



; GREATER THAN 9 ? 



HEX 7 



TYPE CHAR 



AD I 

*0306 

HEX 7 

CALC 

*0315 

<TYPE CHAR-HEAD> 

RET " 

-^0311 



;ADD FOR A-F 



;PRINT ASCII CHAR 



********t***t*»****i*'***********<^*****V ****************************************** 

PRINT^PROMPT 

THIS ROUTINE PRINTS THE PROMPT ON THE CONSOLE PORT 

THIS ROUTINE ALSO CALCULATES A CHECKSUM AND COMPARES IT TO THE CHECKSUM 

CALCULATED WHEN THE PROGRAM WAS STARTED. IF THEY ARE NOT THE SAME 

AN ERROR IS PRINTED 

****************************************************************************** 



PRINT PROMPT: 

" .BYTE 

.BYTE 

.WORD 



.BYTE 
.BYTE 

.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



OFLAG 
! A 



CLEAR 
*O250 
*062 
<OFLAG-HEAD> 



CLEAR 
'^0250 
*062 
TERROR 

IN 

*0333 
CMA 
*057 

MUV 

'^0100 

IN 

*0333 

CMA 

-^057 

ANA 

^^0240 

ANl 

*0346 



ERROR CON 
! A 

_CON"HEAD> 

APTFLG 
, APTFLG&255 



B,A 
: <8*8> I A 

REMOTE 
, REMaTE&255 



B 

! B 
1 



;wUh A 



;with A 



; CLEAR CONTROL FLAG IN BOOT 



; BLOCK 

; CLEAR 8085 ERROR LOOP FLAG 



;READ APT PRESENT FLAG 
;to register A 

; INVERT VALUE (HIGH=SET NOW) 

;STORE IN B REG 

;G£T REMOTE FLAG 
;to register A 

; INVERT VALUE 

;AND TWO FLAGS 

;MASK ALL BUT BIT 



ZZ-ENKAB-1.5 
.MAIN. 



.MAIN. 



01 


0FE7 






0FE8 


2697 


32 


0FE8 




0038' 


0FE9 






OFEB 


2698 




0FE8 


2699 


CD 


OFEB 




1BE9' 


OFEC 






OFEE 


2700 




OFEE 


2701 


21 


OFEE 




03'BC' 


OFEF 




11 


0FF1 




03'CF' 


0FF2 




01 OE 


OFFA 




CD 


0FF6 




OOCF' 


OFF? 




CA 


0FF9 




lOOT 


OFFA 






OFFC 


2702 


27 06 


OFFC 






OFFE 


2703 


CD 


OFFE 




OCAA' 


OFFF 






1001 


270A 




1001 






1001 


2705 




1001 


2706 


AF 


1001 




32 


1002 




025-^' 


1003 






1005 


2707 




1005 


2708 


F8 


1005 






1006 


2709 




1006 


2710 


C9 


1006 






1007 


2711 




•:oo7 


2712 




1007 


2713 




1007 


27M^ 




1007 


2715 




1007 


2716 




1007 


2717 




1007 


2718 




1007 


2719 




1007 


2720 




1007 


2721 




1007 


2722 




1007 


272^ 


79 


100^ 






1008 


272^ 


CD 


1008 




^133 


1009 






1008 


2725 




1008 


2726 


C3 


1008 





2039$: 
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;SAVE APT PRESENT FLAG 



74 
(1) 



.BYTE 


1 




STA APT 


.BYTd 


'^062 


.WORD 


<APT"HEAD> 




CALL CHECKSUM 


.BYTE 


*0315 


.WORD 


<CHECKSUM-HEAD> 




IFNEQ NEWSUM,OLDSUMJ 


.BYTE 


<H*8> : 1 


.BYTE 


<NEWSUM-HEAD>&255 , «^ 


.BYTE 


<D*8> ! 1 


.BYTE 


<OLDSUM-HEAD>&255 , «0 


.BYTE 


<C*8> ! 6 , U255 


.BYTE 


-^031 5 


.WORD 


<COMPARE"HEAD> 


.BYTE 


'^0312 


.WORD 


<2039$-HEAD> 




MVI B,<''X27> 


.BYTE 


<B*8> i 6 . *X27&r55 




CALL ERROR ROUTINE 


.BYTE 


*0315 


.WORD 


<ERROR ROUTINE"HEAD> 




ENOJF " 




CLEAR CNT PAR 


.BYTE 


''0250 ! A 


.BYTE 


^^062 


.WORD 


<CNT_PAR-HEAD> 




El 


.BYTE 


^0373 




RET 


.BYTE 


^03'il 



;CALC CHECKSUM 



«NEWSUM"HEAD>&*XFF00>/256 
«OLDSUM-HEAD>&*'XFF0O>/256 



;with A 



; CHECKSUM ERROR IN MICHON 

; GENERATE LCL 2039 NAME 
; CLEAR PARITY ERROR COUNT 

;ENABLE INTERUPTS 



PRINTER 

THIS ROUTINE PRINTS A STRING OF CHARS 

INPUT CONDITIONS 

H+L ^ POINTER TO THE STRING 

C = NUMBER OF CHARS IN THE STRING 



;LD A WITH CHAR COUNT 

;CALL SEND LINE ROUTINE IN BOOT 



PRINTER: MOV A,C 

.BYTE "0100 I <A*8> I C 

CALL SLVEC1 

.BYTE *0315 
.WORD <SLVEC1-HEAD> 



JMP CHECK CNTLC 

.BYTE ^0303 



; BLOCK. 

;IF "C TYPED. GO TO PARSER 



[' 



ZZ-ENKAB-1.5 
.MAIN. 



.MAIN. 



D 7 



1073' lOOC 
ICOE 
100E 
100E 
100E 
100E 
100E 
100E 
100E 
100E 
100E 
100E 
100E 
100E 
100E 
CD 100E 

412E 100F 
1011 
1011 
1011 
1011 
C3 1011 

1073' 1012 
10U 
1014 
10K 
10U 
10U 
10U 
10U 
10U 
1014 
1014 
1014 
1014 
1014 
1014 
CD 1014 

412E 015 

1017 

1017 

1017 

C3 1017 

1073' 1018 
101A 
101A 
101A 
101A 
101A 
101A 
101A 
101A 
101A 
101A 
101A 
?1 101A 
02'58' loie 
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.WORD <CHECK.CNTLC-HEAD> 

*A**)^H***)\iV******************ilr***********iir***x.'-V ***************************** 



75 : 
(1) ' 



2727 
2728 
2729 
2730 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 PRJNT STRING R: 



PRINT STRING R 

THIS ROUTINE'PRINTS A STRING OF CHARS WITH THE CHAR COUNT AS THE FIRST BYTE 

OF THE STRING TO THE TERMINAL IF APT IS NOT PRESENT. 

INPUT CONDITIONS 

H+L = POINTER TO THE STRING BEGINNING WITH CHAR COUNT 

****************************************************************************** 



2740 



2741 
2742 
2743 
274^ 



CALL SLVECr 
.BYTE *0315 
.WORD <SLVECT-HEAD> 



;CALL SEND LINE ROUTINE IN BOOT 



; BLOCK, IF APT NOT PRESENT, 
; THAT EXPECTS CHAR COUNT 
; AS FIRST CHAR IN STRING 
;IF '^C TYPED, GO TO PARSER 



****************************************************************************** 

PRINT STRING APT 

THIS ROUTINE"PRINTS A STRING OF CHARS WITH THE CHAR COUNT AS THE FIRST BYTE 

OF THE STRING TO THE TERMINAL OR TO APT IF PRESENT. 

INPUT CONDITIONS 

H+L = POINTER TO THE STRING BEGINNING WITH CHAR COUNT 

****************************************************************************** 



JMP CHECK CNTLC 

.BYTE *O303 

.WORD <CHECK CNTLC-HEAD> 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 PRINT STRING APT: 



2758 



2759 
2760 
2761 



2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
2770 
2771 
2772 CRLF R; 



CALL SLVECT 
.BYTE ^0515 
.WORD <SLVECT-HEAD> 



JMP CHECK CNTLC 
.BYTE *O303 
.WORD <CHECK CNTLC-HEAD> 



;CALL SEND LINE ROUTINE IN BOOT 



; BLOCK THAT EXPECTS CHAR COUNT 
; AS FIRST CHAR IN STRING 
;IF ^C TYPED, GO TO PARSER 



A***************************************************************************** 

CRLF R 

THIS ROUTINE PRINTS A RETURN AND LINE FEED (THE BOOT BLOCK PRINT LINE 

ROUTINE SUPPLIES THE LINE FEED). 

****************************************************************************** 

LXI H,CRLF A ;POINT TO CR 

.BYTE <H*8> : 1 
.BYTE <CRLF A-HEAD>&255 , «CRLF A"HEAD>&*XFF00>/256 



2Z-ENKAB'1.5 .MAIN. 

.MAIN. 



E 7 
1A-JUN-1984 



CD 
100E 



C9 



20 3E 
CD 



101D 
101D 
101E 
1020 
1020 
1020 
1021 
1021 
1021 
1021 
1021 
1021 
1021 
1021 
1021 
1021 
1023 
1023 



1027' 1024 
1026 



C9 



CD 
A138 



CD 



1026 
1027 
1027 
1027 
1027 
1027 
1027 
1027 
1027 
1027 
1027 
1027 
1027 
1028 
102A 
102A 
102A 
102A 



1073' 102B 
102D 



C9 



102D 
102E 
102E 
102E 
102E 
102E 
102E 
102E 
102E 
102E 
102E 
102E 
102E 
102E 
102E 
102E 
10?E 
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76 : 

(1) : 



2773 



CALL PRINT STRING R 
.8YTE *0315 
•WORD <PRINT STRING R-HEAD> 



; PRINT IT 



.BYTE 



RET 

*0311 



2774 
2775 

2776 

2777 ■***************■***********************************■>*************************** 

2778 ': 

2779 ' SPACE R 

2780 ; THIS ROUTINE PRINTS A SPACE 

2781 ; 

2782 •*******************************************************************'*********** 

2783 

2784 SPACE R: MVI A, SPACE A ;PRINT SPACE 

" .BYTE <A*8> ! 6 , SPACE A&255 

2785 CALL TYPE CHAR 
.BYTE *0315 

.WORD <TYPE CHAR-HEAD> 

2786 RET " 
.BYTE *0311 

2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 

2796 TYPE CHAR: 

2797 PRI.NT R: CALL SCVECT ; CALL SEND CHAR ROUTINE IN 
■ ^0315 



******AA*****************t*****«f*****rt**r******* **************** **************** 

TYPE CHAR 

THIS"ROUTINE LOADS THE ACCUMULATOR WITH AN ASCII CHARACTER AND CALLS THE 

SEND CHAR ROUTINE IN THE BOOT BLOCK. 

****************************************************************************** 



2798 
2799 
2800 



2801 

2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 



; BOOT BLOCK 

;1F ''C TYPED, GO TO PARSER 



.BYTE 

.WORD <SCyECT-HEAD> 



CALL CHECK CNTLC 
.BYTE *0315 
.WORD <CHECK CNTLC-HEAD> 

RET 
.BYTE *0311 



****************************************************************************** 

INPUT^LINE 

THIS ROUTINE INPUTS A LINE OF DATA FROM EITHER THE CONSOLE UART OR THE 
APT-RD UART AND PUTS THEM INTO BUFFERS. 

IF APT IS PRESENT THE APT-RD PORT WILL RECEIVE 
A PROMPT AND WILL BE MONITORED. 

IF APT IS NOT PRESENT ONLY THE TERMINAL PORT 
WILL RECEIVE A PROMPT AND BE MONITORED. THE STANDARD 
CONSOLE AND MICRO MONITOR WILL EXPECT THE TU58 TO BE PRESENT 
IF ANY COMMAND REQUIRING IT IS USED. IN THE CASE OF DUMP 



ZZ-ENKAB-1.5 

.MAIN. 



.MAIN. 



AF 
32 
02E2' 



21 
08*D1' 
50 OE 

AF 

If 
23 

OD 
C2 
1038' 

21 
OS'OO* 

CD 
U\2l 



3A 
0039* 
OF 
02 
1055' 

AF 
32 
0039* 

CD 
0FD6' 

C3 
102E' 



2\ 
08'01' 

22 
OAAD' 



C9 



102E 

102E 

102E 

102E 

102E 

102E 

102F 

1030 

1032 

1032 

1032 

1033 

1035 

1037 

1038 

1038 

1039 

103A 

103B 

103C 

103E 

103E 

103F 

10AI 

10^1 

10A2 

lOA^ 

lO^A 

lO^A 

10A5 

10A7 

10A8 

10A9 

lOAB 

10^8 

10AC 

10AD 

lO'iF 

lO-iF 

1050 

1052 

1052 

1053 

1055 

1055 

1055 

1055 

1055 

1056 

105S 

1058 

1059 

1058 

1058 

1058 

105C 

105C 



2818 
2819 
2820 
2821 
2822 



2823 
282^ 
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MODE ISSUING COMMANDS REQUIRING THE TU58 ARE ILLEGAL. 
******************************************************************************* 



11 
(1) 



INPUT.LINE: 

.BYTE 
.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
• BYTE 



2040$: 



2825 
2826 



2827 
2828 



1$: 



2829 

2830 
2831 

2832 

2833 
2834 

2835 



2856 
2837 

2838 
2839 



2041$: 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
• WORD 

.BYTE 
.BYTE 

.BYTE 
-WORD 



.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 

.BYTE 
■ BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 

.WORD 



.BYTE 



CLEAR 
*O250 
*062 
<ERROR-HEAD> 



ERROR 
! A 



ZERO TTBUF,80 

<H*8> ! 1 

<TTBUF-HEAD>a255 . 

<C*8> ! 6 , 80&255 

^0250 I A 

MOV M,A 

*0100 ! <M*8> ! A 

<H*8> I 3 

*05 ! <8*C> 

*0302 

<2040$-HEAD> 

LXI H.TTBUF CNT 

<H*8> ! 1 

<TTBUF CNT"HEAD>&255 

CALL " 6LVECT 

-^0315 

<6LVECT-HEAD> 

IF CNTLC TYPED 

*072 

<CNTLC TYPED-HEAD> 

*017 

*0322 

<2041$-HEAD> 

CLEAR CNTLC TYPED 

*0250 I A 

*062 

<CNTLC TYPED-HEAD> 

CALL " PRINT PROMPT 

*0315 

<PRINT PR0MPT-HEAD> 

JMP " INPUT.LINE 

^0303 

<INPUT_LINE-HEAD> 

ENDIF 



;with A 

;ZERO BUFFER AREA 
«TTBUF-HEAD>S''XFF00>/256 
;with A 



;INIT TTY BUFFER POINTER 

«TTBUF CNT-HEAD>6*XFFO0>/256 

" ;CALL GET LINE ROUTINE IN BOOT 



BLOCK 



;w1th A 



;CLEAR FLAG 



.-PROMPT FOR NEW INPUT 



LXI HJTBUF 
<H*8> I 1 
<TTBUF-HEAD>&255 
SHLD TTBUF PNT 
*042 
<TTBUF,PNT-HEAD> 

RET 
*0311 



;6ENERATE LCL 2041 NAME 
;INIT TTY BUFFER POINTER 
«TTBUF-HEAD>8*XFF00>/256 



• ****4i^*«t*************«*****4***t***^t*k41t***l^tlt**t**1t*t-kik*t*itt**irlt**-klt-kttifr-k*tt 



I.... 



ZZ-ENKAB-1.5 
.MAIN. 



.MAIN. 





105C 


28A0 




105C 


2841 




105C 


2842 




105C 


28A3 




105C 


2844 




105C 


2845 




105C 


2846 




105C 


2847 




105C 


2848 




105C 


2849 


CD 


105C 




4U5 


105D 






105F 


2850 




105F 


2851 




105F 


2852 




105F 


2853 




105F 


2854 


02 


105F 




105C' 


1060 






1062 


2855 




1062 


2856 


C9 


1062 






1063 


2857 




1063 


2858 




1063 


2859 




1063 


2860 




1063 


2861 




1063 


2862 




1063 


2863 




1063 


2864 




1063 


2865 




1063 


2866 




1063 


2867 


AF 


1063 




3C 


106^ 




32 


1065 




0039' 


1066 






1068 


2868 


2A 


1068 




A086 


1069 






1068 


2869 


F9 


1068 






106C 


2870 


37 


106C 






106D 


2871 


03 3E 


106D 






106F 


2872 


C9 


106F 






1070 


2873 




1070 


2874 




1070 


2875 




1070 


2876 




1070 


2877 




1070 


2878 




1070 


2879 




1070 


2880 




1070 


2881 



6 7 
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INPUT CHAR IF 

THIS ROUTIRE INPUTS A CHAR FROM THE APT-RD PORT 

OUTPUT CONDTIONS 

ACCUMULATOR = CHAR THAT WAS INPUT 



INPUT CHAR IF: CALL 6SVECT 
" .BYTE ''0315 

.WORD <6SVECT-HEAD> 



;CALL GET SILO ROUTINE IN 



; BOOT BLOCK. IF CHAR FOUND, 
; CARRY IS SET AND CHAR IS IN 
; ACCUMULATOR 

;LOOP UNTIL CHAR RECEIVED 



JNC INPUT CHAR If 
.BYTE *0322 
.WORD <INPUT^CHAR_IF-HEAD> 

RET 
.BYTE *0311 

CNTLC VEC 

THIS ROUTINE IS ENTERED AFTER CALLING THE BOOT BLOCK GET CHAR OR GET LINE 
ROUTINE If A '^C WAS TYPED, IT WILL SET A FLAG, RESTORE THE STACK POINTER. 
AND RETURN TO THE CALLING ROUTINE. 

******************«**«r*********<f***<(****************** ************************ 



CNTLC VEC: SET CNTLC TYPED 
" .BYTE *0250 I A 
.BYTE *04 ! <8*A> 
.BYTE *062 
.WORD <CNTLC TYPED-HEAD> 

LHLD " SPBUFF 
.BYTE *052 
.WORD <SPBUFF-HEAD> 

SPHL 
.BYTE *0371 

STC 
.BYTE *067 

MVI A,<*X3> 
.BYTE <A*8> ! 6 , *X3S255 

RET 

*0311 



;with A 



;SET FLAG INDICATING '^C 

;HL GETS OLD SP 

.'RESTORE SP 

;SET CARRY FOR INPUT_CHAR_IF 
;PUT HEX FOR *C IN A 
.-RETURN WILL NOW WORK 



.BYTE 

**#-*******************it********rilt*********f************************************* 

CNTLP VEC 

THIS ROUTINE IS ENTERED AFTER CALLING THE BOOT BLOCK GET CHAR OR GET LINE 

ROUTINE If A '^P WAS TYPED. IT WILL CAUSE CRD TO ABORT AND RETURN TO THE 

CONSOLE. 

***************•******!***********«******************************************** 



78 
(1) 



Z2-ENKAB-1.5 
.MAIN. 



.MAIN. 



C3 
1616' 



3A 
0039' 

B7 

C4 
1078' 

C9 



AF 
32 
0039* 

AF 
32 
03C0' 



3A 
02EA' 

3? 
0250' 

3A 
0^03' 

32 
0251' 



1070 

1070 

1070 

1070 

1071 

1073 

1073 

1073 

1073 

1073 

1073 

1073 

1073 

1073 

1073 

1073 

1073 

1073 

107^ 

1076 

1076 

1077 

10/7 

1078 

107A 

107A 

1078 

1078 

1078 

1078 

1078 

1078 

1078 

1078 

1078 

1078 

1078 

1078 

107C 

107D 

107F 

107F 

1080 

1081 

1083 

1083 

1083 

108^1 

1086 

1086 

1087 

1089 

1089 

108A 

108C 

108C 

108D 



2882 

2883 CNTLP VEC: 

2884 

.BYTE 
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;EITHER EXIT OR RESTART 



79 
(1) 



JMP MENU 
*0303 
.WORD <MENU-HEAD> 
2885 

2886 

2887 •*****************************t<r**************** *********************** ********* 

2888 
2889 
2890 
2891 
2892 
2893 
2894 
2895 

2896 CHECK CNTLC: LDA 
" .BYTE *072 

.WORD <CNTLC TYPED-HEAD> 

ORA A 
.BYTE *0260 1 A 

CN2 SET FOR CONT P ;CALL SET FOR CONT IF *C SET 
*0304 - - - 

.WORD <SET FOR CONT R-HEAD> 
RET ~ " 
*0311 



CHECK^CNTLC 

THIS ROUTINE CHECKS THE CNTLC TYPED FLAG TO SEE IF A CNTLC HAS BEEN 
DETECTED. IF SO, IT CALLS THE SET^FOR_CONT_R ROUTINE. 

n*************************************************************** ************** 

CNTLC TYPED ;GET FLAG 



2897 
2898 

2899 



.BYTE 



;SET CONDITION CODES 



;ELSE RETURN 



.BYTE 

******************************************************************************** 

SET_FOR.CONT_R: 

THIS ROUTINE SETS UP FOR A CONTINUE COMMAND TO BE EXECUTED IF IT IS 
ASKED FOR 

**********A***'**Ht»*<H^)***(«t**i**l^******<"r* ************************»(******* ********* 



2900 
2901 
2902 
2903 
2904 
2905 
2906 
2907 
2908 
2909 

2910 SET FOR CONT R: CLEAR CNTLC.TYPED 
" '.BYTE *0250 : A 



2911 



2912 
2913 



2914 
2915 
2916 



;with A 
.BYTE *062 
.WORD <CNTLC TYPED-HEAD> 

CLEAR NO SAVE UPC CSR ;CLEAR FLAG 
.BYTE *O250 ! A " ;with A 

.BYTE *062 



.WORD 


<NO.SAVE.UPC_CSR-HEAD> 




LDA EXECUTE 


.BYTE 


*072 


.WORD 


<EXECUTE-HEAD> 




STA C EXECUTE 


.BYTE 


*062 


.WORD 


<C EXECUTE"HEAD> 




LDA RUNNING 


.BYTE 


*072 


.WORD 


<RUNNING"HEAD> 




STA C RUNNING 


.BYTE 


*062 



;SAVE EXECUTION FLAGS 



.WORD <C.RUNNING-HEAD> 



Z2-ENKAB-1.5 
.MAIN. 



.MAIN. 



U-JUN-198A Fiche 1 Frame 17 Sequence 86 

U-JUN-198A 16:08:17 VAX-11 Macro V03-0T Page 80^ 

U-JUN-1984 15:A9:51 DRB0:CeALL.ENKAB3ENKAB.MAC;3 (D 





108F 


2917 








108F 


2918 




IF RUNNING 


3A 


108F 




.8YTE 


*072 


0403' 


1090 




.WORD 


<RUNNIN6-HEAD> 


OF 


1092 




.BYTE 


'^017 


D? 


1093 




.BYTE 


*0322 


109E' 


1094 




.WORD 


<2042$-HEAD> 




1096 


2919 




CALL STOP.CPU 


CO 


1096 




.BYTE 


•^0315 


10C9' 


1097 




.WORD 


<STOP CPU-HEAD> 




1099 


2920 




SET " MICRO STEP 


AF 


1099 




.BYTE 


'^0250 ; A 


3C 


109A 




.BYTE 


*04 I <8*A> 


52 


1098 




.BYTE 


"062 


038A' 


109C 




.WORD 


<MICR0 STEP"HtAD> 




109E 


2921 




ENDIF 




109E 


2042$: 








109E 


2922 








109E 


2925 




CLEAR MICRO STEP 


AF 


109E 




.BYTE 


*O250 ! A 


3? 


109F 




.BYTE 


^^062 


038A* 


10AO 




.WORD 


<MICR0 STEP-HEAD> 




10A2 


2924 




LHLD " SAVED UPC 


2A 


10A2 




.BYTE 


*052 


OOCA' 


10A3 




.WORD 


<SAVEO UPC-HEAD> 




10A5 


2925 




SHLD ' CONT SAVE UPC 


22 


10A5 




.BYTE 


*042 


00C8' 


10A6 
10A8 


2926 


.WORD 


<CONT^SAVE_UPC"HEAD> 




10A8 


2927 




LXI H, SAVED CSR 


21 


10A8 




.BYTE 


<H*8> ! 1 


OO'BB' 


10A9 




.BYTE 


<SAVED CSR-HEAD>&25S 




10AB 


2928 




LXI " D,CONT SAVE.C 


11 


10A8 




.BYTE 


<D*8> ! 1 


OO'BE' 


10AC 




.BYTE 


<CONT SAVE CSR-HEAD>& 




10AE 


2929 




CALL " MOVER 3 R 


CD 


10AE 




.BYTE 


"0315 


0F5F' 


10AF 




.WORD 


<M0VER,3_R"HEAD> 




10B1 


2930 








1081 


2931 




CLEAR EXECUTE 


AF 


1081 




BYTE 


"0250 1 A 


3? 


10B2 




.BYTE 


"062 


02EA' 


1083 
1085 
1085 


2932 
2933 


.WORD 


<EXECUTE-HEAD> 




1085 


2934 




JFN CONSOLE TEST 


3A 


1085 




.8YTE 


"072 


0255' 


1086 




.WORD 


<C0NS0LE TEST-HEAD> 


Of 


1088 




.BYTE 


"017 


OA 


1089 




.BYTE 


"0332 


10CA' 


10BA 




.WORD 


<2043$-HEAD> 




10BC 


2935 




SET CONTINUE 


AF 


ioec 




.BYTE 


"0250 ! A 


3C 


108D 




.BYTE 


"04 ! <8«'A> 


32 


10BE 




.BYTE 


"062 


003A' 


10BF 




.WORD 


<CONTINUC-HEA0> 




ion 


2936 







;wUh A 



;HALT CPU 

;SET FLAG TO PRINT UPC-1 



;with A 



; GENERATE LCL 2042 NAME 
; CLEAR MICRO STEP MODE 

;SAVE CSR AND UPC FOR CONT 



«SAVED.CSR-HEAD>&*XFF00>/256 



;with A 



;CLEAR EXECUTION FLAG TO ENTER 

; PARSER 

;IF 8085 TEST IS NOT RUNNING 



;with A 



/CONTINUE ALWAYS LEGAL FOR WCS 



TESTS IF THIS ROUTINE CALLED 



r 



.MAIN. 



.MAIN 



C5 
10C6' 



3C D3 



C5 

1616' 



AF 
32 

0403' 

3C D3 



?0 D3 
A7 03 

A1 D3 



3A 
03C0' 

OF 
DA 
10F7' 



CD 

Or- 1 9 ' 

2A 
OOC?' 

?2 

OOCA* 

CO 
0F19* 



10C1 

10C1 

10C2 

10C4 

lOC^ 

10CA 

10C6 

10C6 

10C6 

10C6 

10C6 

10C6 

10C7 

10C9 

10C9 

1009 

10C9 

10C9 

10C9 

10C9 

10C9 

10C9 

10C9 

10C9 

10CA 

loce 

10CD 
10CD 
lOCF 
10CF 
10CF 
10D1 
10D1 
10D3 
10D3 
10D5 
10D5 
1005 
1006 
1008 
10D9 
100A 
100C 
10DC 
100C 
1000 
10DF 
100F 
10EO 

ioe:? 

lOEc' 
10t5 
10E5 
lOfS 
10E6 
10E8 
10F8 
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2937 



2938 

2939 
29A0 

2941 
2942 



2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 



2953 

2954 
2955 

2956 

2957 

2958 
2959 



2043$; 



.BYTE 
.WORD 



.BYTE 



ElSE 

*O303 

<2044$-HEAD> 



2044$; 



OUT 
''0323 

ENDIF 



.BYTE 
.WORD 



JMP 

*O305 

<MENU-HEAD> 



CLRLJT 
CLRLIT&255 



MENU 



; GENERATE LDCAL SYMBOL NAME 
;IF 8085 TEST, TURN OFF RUN 
; register A 

; LIGHT 

/GENERATE LCL 20A4 NAME 



************************************************************************ 

STOP CPU 

THIS ROUTINE STOPS THE CPU. IT SAVES THE UPC AND CSR SO THAT 

EXECUTION MAY RESUME AT THE NEXT INSTRUCTION 

**K********************************************************************* 



STOP_CPU: 



2960 
2961 



2962 
2963 
2964 



2965 
2966 



.8VTE 
.BYTE 
.WORD 

.BYTE 



.BYTE 
.BYTE 
.BYTE 



.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 



.BYTE 

.WORD 

.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 

.WORD 



RUNNING 
A 



CLEAR 

'^0250 

^^062 

<RUNNING-HEAD> 

OUT 

*0323 



OUT 

-^0323 

OUT 

^0323 

OUT 

*0323 



CLRLIT 
CLRLITS255 

CLRCLK 

CLRCLK&255 

DISMEM 

DISMEM&255 

01 SPAR 

DISPAR6255 

NO.SAVE^UPC.CSR 



IFN 

■^072 

<N0 SAVE UPC CSR-HEAD> 

*017 

^0332 

<2045$-HEAD> 

CALL LOAD UPC R 

*0315 "• ■ 

<L0A0 UPC R-HEAD> 

LHLD " UPC.VALUE 

■^052 

<UPC VALUE-HEAD> 

SHLD" SAVED.UPC 

*042 

<SAVEO UPC-HEAD> 

CALL " LOAD UPC R 

*0315 ~ " 

<LOAD UPC R-HEAD> 



;with A 



;CLEAR RUNLITE 
/register A 

;STOP CPU CLOCK 
/register A 

/DISABLE MEM REF 
/register A 

/DISABLE PARITY 
/register A 

/DON'T SAVE UPC AND CSR 



/ IF FLAG SET 

/GET UPC AND SAVE UPC 



CALL 



LOAD CSR R 



/RETURN VALUE 



/GET CSR AND SAVE CSR 



L_.. 



iZZ-ENKAB-I.S .MAIN. 

.MAIN, 



CD 
0EE7* 

21 
00'B8' 

11 
OO'BB' 

CO 

0F5F' 

CD 
0EE7' 



AF 
52 
03CO* 

CD 
1A6V 



C9 



2A 
0A07' 

22 
00C2' 



CD 

0F19' 

CD 
OECA' 



C5 
1123* 



10E8 
10E9 
10EB 
10EB 
10EC 
10EE 
10EE 
10EF 

ion 

10F1 

10F2 

10FA 

10FA 

10F5 

10F7 

10F7 

10F7 

10F7 

10F7 

10F7 

10F8 

10F9 

10F8 

10FB 

10FC 

10FE 

10FE 

10FE 

10FF 

10FF 

10FF 

10FF 

10FF 

10FF 

10FF 

10FF 

10FF 

10FF 

10FF 

10FF 

10FF 

1100 

1102 

1102 

1103 

1105 

1105 

1105 

1106 

1108 

1108 

1109 

1108 

noe 

1108 

HOC 

110E 
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2967 
2968 
2969 
2970 



2971 
2972 

2973 
297A 



2975 



2976 
2977 

2978 
2979 
2980 
2981 
2982 
2983 
298A 
2985 
2986 
2987 
2988 
2989 



2990 



2991 
2992 



2993 



2994 
2995 



2996 



20A5$: 



.BYTE 


*0315 


.WORD 


<L0AD CSR R-HEAD> 




Lxi " hTcsr value 


.BYTE 


<H*8> I 1 


.BYTE 


<CSR VALUE-i-IEAD>&255 , 




LXJ " D, SAVED CSR 


.BYTE 


<D*8> ! 1 


.BYTE 


<SAVED CSR-HEAD>a255 , 




CALL " MOVER 3 R 


.BYTE 


^^031 5 


.WORD 


<M0VER 3 R"HEAD> 




CALL " COAD CSR R 


.BYTE 


*0315 " ■ 


.WORD 


<L0AD_CSR_R-HEAD> 




ENDIF 




CLEAR NO SAVE UPC.CSR 


.BYTE 


*O250 ! A " 


.BYTE 


*062 


.WORD 


<N0 SAVE UPC CSR-HEAD> 




calC Clear cpu.att.r 


.BYTE 


'^OSIS 


,W0RD 


<CLEAR CPU ATT R-HEAD> 



«CSR_VALUE-HEAD>&'^XFF00>/256 
:<SAVED.CSR-HEAD>&'^XFF00>/256 

;RETURN VALUE 



;with A 



; GENERATE LCL 2045 NAME 
; CLEAR FLAG 



.BYTE 



RET 

-^OSI- 



START CPU 

THIS Routine starts the cpu at the address given by the ram 

LOCATION STARTING ADD 

IF MICRO STEP IS SET THE CPU IS SET UP BUT NOT STARTED 



START CPU: 

.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 
.WORD 



• BYTE 

.WORD 



LHLD STARTING UPC 

*052 

<STARTING UPC-HEAD> 

SHLD UPC VALUE 

*0A2 

<UPC_VALUE-HEAD> 

CALL LO .0 UPC R 

*0315 

<L0AD UPC R"HEAD> 

CALL " KOP CSR R 

*0315 

<NOP_CSR_R-HEAD> 

JHP START CPU COM 
-^0303 " ■ 
<START CPU COM-HEAD> 



;MOVE STARTING ADDRESS 



;G0 to ROUTINE COMMON TO 



; start or restart 






ZZ-ENKAB-1.5 
.MAIN, 



•MAIN. 



2A 

22 
00C2' 



CD 
0F19' 

21 
00*88* 

11 
00*88' 

CD 
0F5F* 

CD 
0EE7* 



5A 
03D6* 
OF 
D2 

n2c* 

AG D3 



3A 

OF 
1135* 
A6 D3 



3A 



110E 

not 
noE 

110E 
110E 
110E 
110E 
110E 
110E 
110E 
11CE 
110F 
1111 
1111 
1112 
11U 
11U 
11U 
1115 
1117 
1117 
1118 
IIIA 
111A 

ni8 

HID 

111D 

111E 

1120 

1120 

1121 

1123 

1123 

1125 

1123 

112A 

1126 

1127 

1128 

112A 

112A 

112C 

112C 

112C 

112C 

112C 

112D 

112F 

1130 

1131 

1133 

1133 

1135 

1135 

1135 

1135 

1135 



2997 
2998 
2999 
3000 
3091 
3002 
3003 
3004 
3005 
3006 



3007 



3008 
3009 



3010 
3011 
3012 
3013 



501A 
3015 
3016 
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************************************************************************ 

THIS SUBROUTINE IS USED TO RESTART THE CPU AND IT RESTORES THE 

CSR AND UPC. IF MICRO STEP IS SET THE CPU IS SET UP BUT NOT STARTED 

************************************************************************ 



83 
(1) 



3017 

3018 

3019 
3020 



RESTART CPU: 
'.BYTE 
.WORD 

■ BYTE 
,W0RD 



.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.BYTE 

• BYTE 
.WORD 

.BYTE 
.WORD 

START^CPU.COM 

.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 



20^6$: 



3021 

3022 

3023 
302-i 



20^7$: 



.BYTE 



.BYTE 
.WORD 
.BYTE 
.BYTE 

.WORD 
.BYTE 



.eYTE 



LHLD SAVED UPC 

*052 

<SAVEO UPC-HEAD> 

SHLD " UPC VALUE 

-^042 

<UPC_VALUE-HEAD> 

CALL LOAD UPC R 

-^031 5 

<L0AD UPC R-HEAD> 

LXI " HTSAVEP CSR 

<H*8> ! 1 

<SAVED CSR-H£AD.-^25' 

LXI " D,CSR VALUE 

<D*8> : 1 

<CSR VALUE-HEAD>£255 

CALL" MOVER 3 R 

^^031 5 

<MOVER 3 R-HEAD^- 

CALL " COAD CSR R 

*0315 

<LOAD CSR R-HEAD> 



IF PAR ON 

•^072 

<PAR ON-HEAD> 

*017" 

^0322 

<20A6$-riEAD> 

OUT ENBPAR 

*0323 , ENBPAR&255 

ENDIF 



IF MEM REQ 

*072 

<MEM REQ-HEAD> 

*017" 

*0322 

<20';7$-HEAD> 

OUT ENBMEM 

*0323 , EN8MEM&255 

ENDir 



;RESTORE UPC 



;LOAD CSR 
«SAVED_CSR"HEAD>8*XFF00>/256 

«CSR^VALUE"HEAD>&''XFF00>/256 



;ENABLE PARITY 
;regist<?r A 



.•GENERATE LCL 20A6 NAME 



;tNABLE MEM REF 
.'register A 



.'GENERATE LCL 20^7 NAME 



IFN 
^^072 



niCRO.STEP 



|?Z-E\)CAB-1.5 
i.MAlN. 



.MAIN. 
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038A' 
OF 
DA 

113E' 

21 D3 



AF 
3C 
32 

0A03' 

3D D3 



C9 



32 
0071' 



21 
06'72' 

n 

06*6F» 

CO 
0F5f ' 



21 
06*6F' 

CD 
1183' 



(0 
11D2' 



1136 
1138 
1139 
113A 

n3c 
n3c 

113E 
113E 
113E 
113E 
11 3E 
113F 

1U0 

1U1 

1U3 

1U3 

1H5 

1U5 

1U5 

1U6 

1U6 

1U6 

1U6 

1U6 

1U6 

1U6 

1U6 

1U6 

1U6 

1U6 

1U6 

1U6 

1U6 

1U7 

1U9 

1U9 

1U9 

1UA 

1UC 

lUC 

1UD 

1UF 

1UF 

1150 

1152 

ri52 

1152 

1155 

1155 

1155 

1156 

1158 

1158 

1158 

1159 

1158 
11 SB 



3025 

3026 

3027 
3028 



3029 

3030 
3031 

3032 
3033 
303A 
3035 
3036 
303? 
3038 
3039 
30A0 
30^1 
30^2 
3043 
3044 



3045 
3046 



3047 
3048 



3049 

3050 



3051 



5052 
3053 



3054 
3055 



2048$: 



.WORD 


<M1CR0 STEP-HEAD> 




.BYTE 


*017 




.BYTE 


*0332 




.WORD 


<2048$-HEAD> 
OUT SETCLK 




.BYTE 


^0323 , SETCLK&255 
ENDIF 

SET RUNNi. G 


; register A 

.•GENERATE LCL 


.BYTE 


-^0250 ! A 


;with A 


.BYTE 


^04 ! <8*A> 




.BYTE 


*062 




.WORD 


<RUNNING-HEAD> 






OUT SETLir 


;SET RUN LITE 


.BYTE 
.BYTE 


*0323 , SETLJT&255 

RET 
'^0311 


; register A 



WRITE^LS R 

THIS RUTTNE WRITES A 32 BIT LS VALUE 

INPUT CONDITIONS: 

AC = LS ADDRESS THAT IS TO BE WRITTEN 

DATAO THRU DATA3 CONTAIN THE 32 BITS OF DATA TO BE WRITTEN 



WRITE LS R: 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.BYTE 

.BYTE 

.WORD 



.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.WORD 



STA XD ADDRS 

"062 

<XD.ADDRS-HEAD> 

LXl H,S WRITE. LS 
<H*8> I 1 

<: WRITE LS-HEAD>&255 . 
LXT [5,X WRITE.LS + 1 
<D^8> I 1 ■ 

<x write ls+1-head>s255 
caCl Rover 3 r 

*0515 
<M0VER_3_R-HEAD> 

LXI H,X WRITE. LS+1 
<H*8> ! 1 ■ 

<x write ls+1-head>&255 
caCl Wake xd r 

*0315 

<make xd r-head> 



CALL 

^^0315 

<WRITE data 32 R-HEAD> 



LXI 



WRITE.DATA.32.R 

ATA^32^R-HEA1 

h,x_write.ls 



;SAVE ADDRESS TO BE WRITTEN 

;RESET MOVE INSTRUCTION 
«S_WRITE.LS-Hfc.^D>&*XFF00>/256 

, «X.WRITE_LS+1-HEAD>&*XFFO0>/256 

;M0DIFY MOVE INSTRUCTION 
, «X.WRITE_LS+1-HEAD>&*XFFO0>/256 

;WRITE THE DATA TO 2901 
;PERFORM THE WRITE 



!Z7-c\KAB-1.5 
I.^^AIN. 



.MAIN. 



?1 
06*6E' 

CD 
12F2' 



CD 
^1?9 



C9 



Q7 3E 



■5^ 

007T 



21 
06»67' 

CD 



06*6*;' 

CO 
1183' 



C6'63' 

'"D 

1 ;84' 



1158 

115C 

USE 

115E 

115F 

1161 

1161 

1161 

116? 

116A 

116A 

1165 

1165 

1165 

1165 

1165 

1165 

1165 

1165 

1165 

1165 

1165 

Vi65 

1165 

1165 

1167 

116^ 

1167 

1168 

116A 

11 6A 

116A 

1166 

116D 

n6D 

116E 

1170 

1170 

1171 

1175 

1175 

1175 

117^ 

1176 
1176 
1177 
1179 

I "^79 

1179 

II 7A 

^17( 
117l 
117D 

11 7r 

1180 

118? 



3056 



3057 
3058 



3059 

3060 

3061 

306? 

3063 

306^ 

3065 

3066 

3067 

5068 

3069 

3070 

3071 

307? 

3073 
307^ 



3075 
3076 



3U77 
3078 



3079 
3080 



3081 



308? 
3065 



308A 
3085 
5086 



.BYTE 
.8YTc 

.8YTE 
.WORD 



.8VTE 
.WORD 

.8YTE 
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<H*8> : 1 

<x write ls"head>6?55 , «x write ls-head>&*xff0o>/256 

caCl Perform csr r 

*0315 " " 

<PERFORM CSR R-HEAD> 



CALL 6CVECT 

*0315 

<GCVECT-HEAD> 

RET 

*0311 



;SEE IF INPUV FOR SILO 



****************************************************************************** 

READ LS R 

THIS"RO0tINE READS A 32 BIT LS VALUE 

INPUT CONDITIONS: 

AC ^ LS ADDRESS THAT IS TO BE READ 
OUTPUT CONDTIONS: 

OATAO THRU DATA3 CONTAIN THE 32 BITS READ 

***************'fr******«******************************************************* 



READ LS 7: 

" ".BYTE 

READ LS R: 

.8YTE 
.WORD 



.8y:e 

.8YTE 

.BYTE 
.BYTE 

,8YTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.WORD 

.BYTE 
.WORD 



MVI A,LS^7 
cA*8> : 6 , CS.7B255 

STA XD ADDR3 

*06? 

<XD.ADDRS"HEAO> 

LXI H,S READ LS 

<H*8> : 1 

''S READ LS-HEAD>£255 , 

LXT "D,X READ LS + 1 

<D*8> ! 1 " 

<X READ LS+1-HEAD>&255 

CACl "MOVER 3 R 

*G315 

<H0VFR_3_R-HEAD> 

LXI H,X READ LS+1 

^H*8> : 1 

<X READ LS+1-HEAD>S255 

CACL "make XD R 

'^0315 

<HAKE XD R-HEAD> 



H,X READ LS 
1 



LXI 

<H*8> 

<X READ LS-HEAD>&255 , 

CACl "PERFORM CSR R 

-^0315 " " 

^PERFORM CSR R-HEAD> 

CALL READ^DAiA 3? R 

^^0315 

<READ data 52 R-MEAD> 



;LS ADDRESS 7 

;SAVE ADDRESS TO BE READ 

;RESET MOVE INSTRUCTION 
«S_READ.LS-HEAD>a''XFF00>/256 

, «X_READ^LS+1-HEAD>8*XFF00>/256 

;AND MODIFY MOVE TO DO IT 
, «X_READ.LS+l-HEAD>&*XFF00>/25o 

;PERFORM THE READ 
«X.READ.LS-HFAD>&*XFF00>/256 



Z?"[NKAB-1.5 .MAIN 

.MAIN. 



C9 



3A 



118? 
1182 
1185 
1183 
1183 
1183 
1183 
1183 
1185 
1183 
1183 
1183 
1183 
1183 
1183 
1185 
1183 



0071* 118^ 
1186 



17 

00 5E 
17 
B6 
17 
21 



3A 
0U71' 



B7 
17 
86 
11 



C9 



1186 
1187 
1187 
1189 
1189 
118A 
nSA 
nSB 
1186 

use 

1180 

118D 

118D 

118D 

USE 

1190 

119C 

1190 

1191 

1191 

119? 

119? 

1193 

1193 

119A 

119A 

119A 

1195 

1195 

1195 

1195 

1195 

1195 

1195 

1195 

1195 

1195 

1195 
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3087 

3088 
3089 
3090 
3091 
3092 
3093 
309A 
3095 
3096 
5097 
3098 
3099 
5100 
3101 



.BYTE 



RET 
*0311 



******************************************************************************** 

MAKE XD R 

TH1S"R0DTJNE MAKES AN INSTRUCTION HAVE THE PROPER XD ADDRESS FIELD 

INPUT CONDITIONS: ^ _^ 

XD A0DR5 = DATA TO BE INSERTED INTO THE XD ADDRESS FIELD (BITS 9-16) 
H + L = POINTS TO THE 5 BYTE INSTRUCTION TO MODIFY 



31C2 
5105 

310A 

5105 

3106 

5107 

3108 
5109 

3110 
5111 

311? 

5113 

31U 

3115 
3116 

3117 
5118 
5119 

51?0 
51?1 
5122 
31?3 

51?*; 

51?5 
51?6 
31?7 



MAKE XD R: 

.BYTE 

.WORD 

.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



.BYTE 
.WORD 



.8YfE 
.BYTE 
.BYTE 
• BYTE 

.BYTE 



LOA XD ADDRS 

*07? 

<XD ADDRS-HEAD> 

RAL" 

^027 

MVI A,0 

<A*8> I 6 , 0&255 

RAL 

*0?7 

CRA M 

*0260 ! M 

MOV M,A 

*0100 1 <M*8> I A 

INX H 

<H*8> I 3 



IDA XD ADDRS 

"072 

<X0 ADDRS-HEAD> 



;PUT BIT 7 OF XD^ADDRS 



;INTO BIT 16 OF INSTRUCTION 



ORA 

*0260 

RAL 

*0?7 

ORA 

*0?60 

MOV 

*0100 

RET 
''0311 



M 
M 

M,A 
<M*8> 



;PUT BITS 0-6 INTO BITS 



; 15 - 9 OF INSTRUCTION 
; CLEAR CARRY 



A 



MAKE B 

rHJS"ROUTINE MAKES AN INSTRUCTION HAVE THE PROPER B ADDRESS FIELD 

INPUT CONDITIONS: 

B ADDRS = DATA TO BE INSERTED INTO THE B ADORESS FIELD (QUS 7-8) 
H"+ L = POINTS TO THE 3 BYTE INSTRUCTION TO MODIFY 



?Z-ENKAB-1.5 .MAIN 

.MAIN. 



23 

3A 
0240* 

IF 

IF 

00 3E 

M 

B6 

11 

21 

3A 

0240' 

IF 
00 3E 

IF 

B6 
17 

C9 



23 
Bl 



1195 

1195 

1195 

1195 

1196 

1196 

1196 

1197 

1199 

1199 

n9A 

11 9A 

1198 

1196 

119D 

119D 

119c 

119E 

119F 

119F 

11A0 

11A0 

11A1 

11A1 

11 A1 

11A2 

11A4 

11A4 

11A5 

11A5 

11A7 

11A7 

11A8 

11A8 

11A9 

11A9 

11AA 

11AA 

11AA 

IIAB 

11A6 

11AB 

11AB 

11AB 

11A6 

11AB 

11AB 

11AB 

11AB 

11AB 

HAS 

11AB 

11A8 

11AB 

11AC 

11AC 

11AC 



C 8 
U-JUN-1984 Fi'che 1 Frame ZB Sequence 93 

U-JUM-198'; 16:08:17 VAX-11 Macro V03-01 Page 

U-JUN-198A 15:49:51 DRB0:CBALL.ENKAB]ENKAB.MAC;3 

3128 •****************^**************'********************'*************************** 

3129 ' 



87 
(1) 



3130 MAKE_8; 

313^ 
3132 



5133 

3134 

3155 

3136 

3137 

3138 

3139 

3140 
3141 

3142 
3143 
3144 
3145 
3146 



3147 
3148 



• BYTE 

.BYTE 
.WORD 

.BYTE 

,8YTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

■ WORD 

.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



INX 
<H*8> 



LDA B ADDRS 

*072 

<B ADDRS-HEAD> 

RAR 

*037 

RAR 

*037 

MVl A,0 

<A*8> I 6 , 0&255 

RAL 

*027 

ORA M 

*0260 : M 

MOV M,A 

*0100 ! <M*8> ! A 

INX H 

<H*8> ! 3 

LDA B ADDRS 

*072 

<B ADDRS"HEAD> 

RAR 

^037 

MVI 

<A*8> 

RAR 

*037 

ORA 

"0260 

MOV 

^0100 

RET 
^^0311 



MOVE TO SECOND BYTE 

PUT BIT 2 OF 8_ADDRS INTO 

BIT 8 OF THE INSTRUCTION 



;PUT BIT 1 OF B_ADDRS INTO 
;BIT 7 OF THE INSTRUCTION 



A,0 

6 , 0&255 



M 

M 

M,A 

<M*8> 



3149 
5150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 

3160 
3161 
5162 MAKE.A: 

3163 
3164 



.BYTE 

♦ t***************!*********^***** ********************************************** 



MAKE A 

THIS'ROUTINF MAKES AN INSTRUCTION HAVE THE PROPER A ADDRESS FIELD 

INPUT CONDITIONS: 

A ADDRS = DATA TO BE INSERTED INTO THE A ADDRESS FIELD (BITS 9-10) 
H-+ L = POINTS TO THE 3 BYTE INSTRUCTION TO MODIFY 

***<^4««««4*«*4ik44***l^Al^*A*ft*****ir*ft****************ft*****************'*****1t*** 



.BYTE 

.BYTE 



INX 
<H*8> 

ORA 
*0260 



;HOVE TO SECOND BYTE 

;CLEAR THE CARRY FOR ROTATES 






ZZ-ENKAB-1.5 
.MAIN, 



.MAIN. 



3A 
0163' 

17 

B6 

11 

C9 



11 
OO'AC 

CD 
11C9' 



11 
OO'AB' 

CD 
11C9' 



11 
00*AA' 

CD 

11C9' 



11 
00'A9» 



EC D3 
80 D8 

12 
CD 



HAD 

HAD 

HAD 

11AE 

11B0 

11B0 

1181 

11B1 

11B2 

11B2 

11B3 

1183 

11B3 

118^; 

118^ 

1184 

IIB-i 

1184 

1184 

11B4 

1184 

1184 

1184 

11B4 

1184 

1185 

11B7 

1187 

1188 

118A 

IIBA 

USA 

118B 
11BD 
11BD 
118E 
11C0 
11C0 
11C0 
11C1 
11C5 
11C3 
11C4 
11C6 
11C6 
11C6 
11C7 

nc9 

11C9 
11C9 
11C9 

nrs 

11C8 
11CD 
11CD 

ncE 
lire 
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88 
(1) 



3165 
5166 



3167 
3168 
3169 

3170 

3171 

3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
318C 
3181 
3182 

3183 



3184 
3185 



3186 



3187 
3188 



3189 



3190 
3191 



3192 
3193 

3194 

3195 
3196 
3197 



LDA A ADDRS 
.BYTE *072 
.WORD <A ADDRS"HEAD> 

RAC 
.BYTE *027 

ORA 
.BYTE *O260 

MOV 
.BYTE *OlOO 

RET 
.BYTE *0311 



M 
M 

M,A 
<M*8> ! 



;PUT BIT 2 OF B_ADDRS INTO 



;MOVE TO BITS 9-10 



;0R IT INTO INSTRUCTION 



READ DATA 32 R 

THIS'ROUTTNE is USED TO READ 32 BITS OF DATA FROM THE 

CPU 8 BITS AT A TIME VIA THE 2901 

***********<***********A*ik*******t>"(**<t******** ********************************** 



READ.DATA.32 R: 

.5ytE 

.BYTE 

.8YTE 
.WORD 



.BYTE 
.BYTE 

.8YTE 
.WORD 



.8YTE 
.BYTE 

.BYTE 
.WORD 



1$: 



.BYTE 
.BYTE 



.BYTE 

.BYTE 
.8YTE 
.BYTE 



LXI D,DATA3 
<D*8> I 1 
<DATA3-HEAD>a255 
CALL 1$ 
*0315 
<1$-HEAD> 

LXI D,DATA2 
<D*8> I 1 
<DATA2"HEAD>&255 
CALL 1$ 
^0315 
<1$-HEAD> 

LXI D,DATA1 
^D*8> ! 1 
<DATA1-HEAD>&255 
CALL 1$ 
"0315 
<1$"HEAD> 

LXI D.DATAO 
<D*8> ! 1 
<DATA0-HEAD>&255 



;0E POINTS TO DATA AREA' 

«DATA3-HEAD>&*XFF00>/256 

;READ BYTE AND STORE 



;0E POINTS TO DATA AREA 

«DATA2-HEAD>&'^XFF00>/256 

;READ NEXT BYTE AND STORE 



;DE POINTS TO DATA AREA 

«DATA1-HEAn>£*XFF00>/256 

;READ NEXT BYTE AND STORE 



;DE POINTS TO DATA AREA 

«DATA0-HEAD>S"XFFOO>/256 

; READ NEXT BYTE AND STORE 



OUT 

"0323 

IN 

"0333 

STAX 

<D*8> 

CALL 

"0315 



VBUSRD 

YBUSRD£255 

READ 

READR255 

D 

2 

SHIFT R 2901 R 



;register A 

;READ MOST SIG. BYTE 
;to register A 

;STORE IN DATA BUFFER 

;READ NEXT BYTE 



ZZ-ENKAB-1.5 .MAIN 

.MAIN. 
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1250* 


11CF 






11D1 


3198 


C9 


11D1 






nD2 


3199 




11D2 


3200 




11D2 


3201 




11D2 


3202 




11D2 


3203 




11D2 


3204 




11D2 


3205 




11D2 


3206 




11D2 


3207 




11D2 


3208 




11D2 


3209 




11D2 


3210 




11D2 


3211 




11D2 


3212 




11D2 


3213 




11D2 


32U 


3A 


11D2 




02FC' 


11D3 




OF 


11D5 




DA 


11D6 




120A* 


11D7 






11D9 


3215 




11D9 


3216 


21 


11D9 




OO'Ar 


11DA 






11DC 


3217 


CD 


11DC 




12F2' 


HDD 






11DF 


3218 




11DF 


3219 




11DF 


3220 




11DF 


3221 


21 


11DF 




00'55' 


11E0 




A6 


11E2 




C5 


11F3 




20 3B 


HE*; 




77 


11E6 
11E7 






11E7 


3222 




11E7 


3223 


21 


11F7 




OO'AC* 


11E8 






11EA 


3224 


04 OE 


11EA 






11EC 


3225 


CD 


11EC 




OEcr 


11ED 






11EF 


3226 




11EF 


3227 


D2 


11EF 




11FB' 


UFO 






11F2 


3228 


21 


11F2 
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.WORD <SH1FT ft 2901 R-HEAD> 

RET ' " 
.BYTE ^^0311 

WRITE DATA 32 ft 

THIS ROUTJ.'^E Is USED TO WRITE 32 BITS OF DATA TO THE CPU 

DATA WRITES TO THE CPU ARE DONE IN TWO DIFFERENT MODES 

SLOW MODE: AND FAST MODE: SLOW MODE USES NO SUPPORT MICRO CODE 

IN THE WCS MEMORY, AND THE FAST MODE DOES. THE MODE IS INITIALLY 

SLOW MODE UNTIL A WCS FILE IMAGE IS LOADED. THEN IT IS SWITCHED TO 

FAST MODE UNLESS THERE IS AN ERROR IN THE FAST MODE VERIFY. 

WRITE_DATAJ2_R: 



89 

(1) : 



2050$: 



.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



.BYTE 
.BYTE 

.BYTE 

.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 



IFN FAST WRITE 

^072 

<FAST WRITE"HEAD> 

•^017 " 

^0332 

<2049$-HEAD> 

LXI H,X CLR WRO 

<H*8> ; 1 

<X CLR WR0-HEAD>&255 

CACL " PERFORM CSR R 

-^0315 

<PERFORM CSR R-HEAD> 



;SLOW WRITE 

; CLEAR WORKING REG AND COMPLIM. 

«X CLR WR0-HEAD>&''XFF00>/256 

" " ;T0 MAKE ALL I'S THEN ROTATE 



;LEFT TO MAKE A 1 AND ASH LEFT 
;T0 MAKE A ZERO 



DO 32 

<H*8> I 1 
<DOLOOP"HEAD>a255 

''OIOO ! <B*8> I M 

'^0305 ! <8*B> 

<A*8> ' 6 , 32&255 

*O100 ! <M*8> ! A 



LXI H,DATA SHIFT+4 

<H*8> ! 1 

<DATA SHlFT+4-HEAD>&255 

MVl " C,4 

<C«8> : 6 , 46255 

CALL SHIFTERI.R 

*0315 

<SHIFTER1.R-HEAD> 

IFC 

*032? 

<2051$-HEAD> 

LXI :i,X ROT L 

<H*8> ! 1 " 



«DOLOOP-HEAD>S*XFFO0>/256 



;SHIFT DATA INTO CPU 
«DATA.JHIFT+4-HEAD>a*XFF00>/256 



;ADDR OF CSR INSTS TO EXECUTE 



L 



?2"ENKAB-1,5 .MAIN 

.MAIN. 



00*79* 


11F3 






11F5 


3229 


CD 


11F5 




12F2' 


11F6 






11F8 


3230 




11F8 


3231 


C3 


11F8 




11FE* 


11F9 
IIFB 






11FB 


3232 


CD 


11FB 




12A9' 


11FC 






11FE 


3233 




11FE 






11FE 


323A 




11FE 


3235 


21 


11FE 




00'55' 


11FF 




35 


1201 




C2 


1202 




11E7' 


1203 




C1 


1205 




70 


1206 






1207 


3236 




1207 


3237 


C3 


1207 




1248' 


1208 
120A 






120A 


3238 




120A 


3239 


21 


120A 




06 00 


1208 






120D 


32'iO 


7C 


120D 






120E 


32*^1 


65 


120E 






120F 


32^2 


6F 


120F 






1210 


32A3 


22 


1210 




00C2* 


1211 






1213 


32^A 


CD 


1213 




0F19* 


12U 






1216 


32^*5 




1216 


32^6 


CD 


1216 




OECA* 


1217 






1219 


32^7 




1219 


32^8 


CD 


1219 




12A0' 


121A 






121C 


32^9 


CO 


121C 




12A0' 


121D 






121F 


3250 




121F 


3251 



2051$: 



2052$: 



2049$: 



.BYTE 
.WORD 



.BYTE 
.WORD 



.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 



.BYTE 
■ WORD 



.BYTE 
.BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 
.WORD 
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90 
(1) 



.BYTE <X R0T.L"HEAD>B255 , «X.ROT.L-HEAD>&*XFF00>/256 



PERF0RM_CSR_R 



CACL 

^^031 5 

<PERFORM CSR R-HEAD> 



;MAKE A 1 BY EW AROUND CARRY 



ELSE 

*0303 

<2052$"HEAD> 

CALL SHIFT L 2901 R 

*0315 

<SH1FT L 2901 R-HEAD> 

ENDIF " 



;6ENERATE LOCAL SYMBOL NAME 
;MAKE A BY SHIFT IN ZERO 



; GENERATE LCL 2052 NAME 



ENDDO 
<H*8> I 1 
<DOLOOP-HEAD>&255 
*05 ! <8*M> 
"0302 

<2050$-HEAD> 
*0301 ! <8*B> 
*0100 ! <M*8> ! B 

ELSE 

*0303 

<2053$-HEAD> 



LXI H,WCS DAT„32 ADD 

<H*8> I 1 

<WCS DAT 32 ADD-HEAD>8255 

MOV " S,H" 

*0100 I <A*8> ! H 

MOV H,L 

*0100 ! <H*8> ! L 

MOV L,A 

*0100 I <L»8> 

SHLD UPC VALUE 

*0A2 

<UPC VALUE-HEAD> 

CALL" LOAD UPC R 

*0315 

<LOAD_UPC_R-HEAD> 

CALL NOP CSR R 
*0315 " " 
<NOP_CSR,R-HEAD> 

CALL MICRO STEP.CPU.R 

*0315 

<MICRO STEP CPU R-HEAD> 

CALL " MICRO STEP^CPU R 

*0315 

<MICRO STEP CPU R-HEAD> 



«D0L00P-HEAD>8''XFF00>/256 



.•GENERATE LOCAL SYMBOL NAME 
;FAST WRITE 
«WCS.DAT,32.ADD-HEAD>&*XFF00>/256 



;SET UP SUBROUTINE 



;EXEC INIT FOR SUB. 



DO 



32 



ZZ-ENKAB-1.5 
.MAIN. 



.MAIN. 



21 


121F 




00*55' 


1220 




A6 


1222 




C5 


1223 




20 3E 


122A 




11 


1226 
1227 






1227 


3252 




1227 


3253 


21 


1227 




OO'AC 


1228 






122A 


3254 


0*^ OE 


122A 






122C 


3255 


CD 


122C 




OECV 


122D 






122F 


3256 




122F 


3257 


A8 D3 


122F 






1231 


3258 




1231 


3259 


D2 


1231 




1236' 


1232 






123A 


3260 


AA D5 


123A 






1236 


3261 




1236 






1236 


3262 




1236 


3263 


CD 


1236 




12A0' 


1237 






1239 


3264 


CD 


1239 




12A0' 


123A 






123C 


3265 


CD 


123C 




12A0' 


123D 






123F 


3266 




123F 


3267 


21 


123F 




00'55' 


12A0 




35 


12^2 




il 


12A3 




1227' 


12^4 




CI 


12A6 




70 


12A7 






12A8 


3268 




12^8 


3269 




12A8 






12^8 


3270 




12A8 


3271 


C9 


12^8 






1249 


3272 




12A9 


3273 




12A9 


3274 




1249 


3275 




1249 


3276 



2054$: 



2055$: 



2053$: 



.8YTE 
.8YTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



.BYTE 
.BYTE 

.BYTE 

.BYTE 
.WORD 



.BYTE 



.BYTE 
.WORD 

.BYTE 



.BYTE 
.WORD 

.BYTE 
.WORD 

.e.TE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 



.BYTE 
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<H*8> ! 1 
<DOLOOP-HEAD>B255 
*O100 ! <B*8> ! M 
*0305 ! <8*B> 
<A*8> I 6 , 32B255 
*0100 ! <M*8> ! A 



LXI H,DATA SHIFT+4 

<H*8> I 1 

<DATA SHIFT+4-HEAD>a255 

HVI " C,4 

<C*8> ! 6 , 4&255 

CALL SHIFTERI^R 

*0315 

<SHIFTER1 R"HEAD> 



«DOLOOP-HEAD>&*XFF00>/256 



;P0INT TO END OF DATA AREA 

«DATA SHlFT+4-HEAD>&'^XFF00>/256 
TBYTES to SHIFT IN REG C 



OUT 
*0323 



CLRATN 
CLRATN&255 



IFC 

*0322 

<2055$-^EAD> 

OUT SETATN 

*0323 , SETATNS255 

ENDIF 



;SET A ZERO TO BE READ 
;register A 



;SET A ONE TO BE READ 
;register A 



CALL MICRO STEP CPU R 

*0315 

<MICRO STEP CPU R-HEAD> 

CALL " MICRO STEP CPU R 

*0315 

<M1CR0 STEP CPU R-HEAD> 

CALL MICRO STEP CPU R 

*0315 

<MICRO STEP CPU R-HEAD> 



;GENERATE LCL 2055 NAME 
; CYCLE THROUGH LOOP IN SUB 



ENDDO 
<H*8> I 1 
<DOLOOP"HEAD>B255 
'^05 I <8*M> 
'^0302 

<2054$-HEAD> 
*0301 ! <8*B> 
'^QIOO J <M*8> 1 

ENDIF 



RET 
'^0311 



«DOLOOP-HEAD>&'^XFFO0>/256 



6 



;GENERATE LCL 2053 NAME 



; SH]FT^L„2901_R 



ZZ-ENKAB-1.5 .MAIN. 
.MAIN. 



21 
00'75' 

CD 

12F2' 



C9 



21 
00'85' 

CD 

12F2' 



C9 



3A 
038A* 
FE 
01 
C2 
1285* 



CD 
413D 



12-i9 

12A9 

12A9 

12A9 

12A9 

1249 

1249 

124A 

124C 

124C 

12AD 

12AF 

124F 

124F 

1250 

1250 

1250 

1250 

1250 

1250 

1250 

1250 

1250 

1250 

1250 

1251 

1253 

1253 

1254 

1256 

1256 

1256 

1257 

1257 

1257 

1257 

1257 

1257 

1257 

1257 

1257 

1257 

1257 

1257 

1257 

1258 

125A 

1258 

125C 

125D 

125F 

125F 

125F 

1260 

1262 

1262 

1262 



3277 
3278 
3279 
3280 
3231 
3282 



3283 



3284 
3285 

3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 



3296 



3297 
3298 

3299 
3300 
3301 
3302 
3303 
5304 
3305 
3306 
3307 
3308 
3309 
3310 
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THJS ROUTINE SHIFTS THE DATA lU THE 2901 LEFT 1 BIT THIS INCLUDES 
SHIFTING A ZERO INTO THE LSB 

******************************************<k********** ************************* 



92 
(1) 



SHIFT L 2901 R: LXI H,X_SHIFT_L 
" ".BYTF <H*8> I 1 

<x shift l-head>£255 
caCl Perform csr r 

*0315 " " 

<PERF0RM csr R"HEAD> 



.BYTE 



;ADDR OF CSR INSTS TO EXECUTE 
«X_SHIFT^L-HEAD>&*XFF00>/256 



.BYTE 
■ WORD 



RET 
*0311 



.BYTE 
**********<^****** ************************************************************* 

SHIFT R 2901 R 

THIS RoDTINE"SHIFTS THE DATA IN THE 2901 RIGHT 8 BITS AND LEAVES 

THE LEAST SIG. BYTE ON THE Y-BUS TO BE READ 

*H******i^**i^********** ******* ************************************************* 



;ADDR OF CSR INSTS TO EXECUTE 
«X.SHIFT^R-HEAD>&'*XFF00>/256 



SHIFT R 2901 R: LXI H,X_SHIFT.R 
.BYTE <H*8> ! 1 

.byte <x shift r-head>b255 
caCl Perform csr r 

.BYTE *0315 

.WORD <PERFORM_CSR_R-HEAD> 

RET 
.BYTE *0311 

******H**i^******************************************************************** 

MICRO STEPER 

THIS Routine single steps the cpu. if the machine is in space bar 

MODE ANY CHAR OTHER THAN SPACE WILL CLEAR EXECUTE MODE AND STOP 
MICRO STEPING. F THE MACHINE IS IN COUNT MODE" IT WILL DECREMENT 
THE COUNT AND STOP MICRO STEPING AT COUNT 

****************************************************************************** 



3311 
3312 



3313 
3314 
3315 



MICRO STEPER: 
.BYTE 
.WORD 
.BYTE 
.BYTE 
.BYTE 
.WORD 



1$: 



.BYTE 
.WORD 



IFEQI MICRO STEPJ 

*072 

<MICRO STEP"HEAD> 

"0376 " 

1 

*O302 

<2056$-HEAD> 

CALL RSVECT 

*0315 

<RSVECT-HEAD> 



; SPACE BAR MODE 



;CALL READ SILO ROUTINE IN 



BOOT BLOCK. IF CHAR FOUND, 
CARRY IS SET AND CHAR IS IN 
ACCUMULATOR 



22-ENKAB-1.5 .MAIN 

.MAIN. 





1262 


3j16 








1262 


3517 




JNC 1$ 


D2 


1262 




.8YTE 


*0322 


125F' 


1263 
1265 


3318 


.WORD 


<1$-HEAD> 




1265 


3319 




AMI HEX_7F 


E6 


1265 




.BYTE 


*0346 


7F 


1266 




.BYTE 


HEX 7F 




1267 


3320 




CPI" SPACE A 


FE 


1267 




.BYTE 


*0376 


20 


1268 




• BYTE 


SPACE A 




1269 


3321 




JZ " 2$ 


CA 


1269 




.BYTE 


*0312 


127C' 


126A 
126C 


3322 


.WORD 


<2$-HEAD> 




126C 


3323 




CALL STOP CPU 


CD 


126C 




• BYTE 


*0315 


10C9' 


126D 




.WORD 


<ST0P CPU-HEAD* 




126F 


332^ 




CLEAR" MICRO_STEP 


AF 


126F 




.BYTE 


*0250 ! A 


32 


1270 




.8YTE 


*062 


038 ^' 


1271 




.WORD 


<MICR0 STEP"HtAD> 




1273 


3325 




CALL " SAVE WR 


CD 


1273 




.BYTE 


*0315 


ocir 


127^ 




.WORD 


<SAVE WR-HEAD> 




1276 


3326 




CALL ■ SET FOR CONT R 


CD 


1276 




.8YTE 


*0315 


1078' 


1277 




.WORD 


<SET FOR CONT R-HEAD> 




1279 


3327 




jMP " Restart cpu 


C3 


1279 




.BYTE 


*0303 


110E' 


127A 




.WORD 


<restart_cpu-head> 




127C 


3328 








127C 


3329 2$: 




CALL 6SVECT 


CD 


127C 




.BYTE 


*0315 


AU5 


127D 




.WORD 


<GSVECT-HEAD> 




127F 


3330 




CALL MICRO STEP CPU R 


CD 


127F 




.BYTE 


^^031 5 


12A0' 


1280 




.WORD 


<H1CR0^STEP_CPU_R-HEAD> 




1282 


3331 








1282 


3332 




ELSE 


C3 


1282 




.BYTE 


^0303 


129F' 


1283 
1285 
1285 


2056$: 
3333 


.WORD 


<2057$-HEAD> 




1285 


333A 




CALL MICRO STEP CPU R 


CD 


1285 




.BYTE 


^^031 5 - - - 


12A0* 


1286 




.WORD 


<MICRO STEP CPU R-HEA[)> 




1288 


3335 




LXl " h^sTep Zm 


21 


1288 




.BYTE 


<H*8> I 1 


0^'09» 


1289 




.BYTE 


<STEP CNT-HEAD>&255 , << 




1288 


3336 




CALL " DECR WORD R 


CD 


1288 




.8YTE 


*0315 


128C' 


128C 




.WORD 


<DECR WORD_R-HEAD> 




128E 


3337 




RN2 


CO 


128E 

128F 


3338 


.BYTE 


^0300 




128F 


3339 




CALL ST0P_CPU 
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;LOOP UNTIL CHAR RECEIVED 



93 j 
(1) 



ith A 



STRIP ASCII PARITY BIT 



SPACE? 



JUMP TO SINGLE STEP IF SPACE 



;STOP CPU, SAVE CSR AND UPC 



;CLEAR FLAG 



SAVE CPU WORKING REGS 



NO SPACE, END MICRO STEPPING 



CONTINUE COMES HERE 



;CALL GET SILO TO POP OUT SPACE 



;STEP MACHINE AND PRINT ADDRESS 



.■GENERATE LOCAL SYMBOL NAME 
; COUNT MODE 

.'DECREMENT STEP COUNT 
<<STEP^CNT-HEAD>6*XFF00>/256 

;RETURN UNTIL COUNT EXHAUSTED 
;STOP CPU, SAVE CSR AND UPC 
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CD 


128F 




10C9' 


1290 






1292 


3340 


AF 


1292 




32 


1293 




038A' 


129A 






1296 


5341 


CD 


1296 




0C11' 


1297 






1299 


3342 


CD 


1299 




107B' 


129A 






129C 


3343 


C3 


129C 




110E* 


129D 






129F 


3344 




129F 


3345 




129F 






129F 


334b 




129F 


3347 


C9 


129F 






12A0 


3348 




12A0 


3349 




12A0 


3350 




12A0 


3351 




12A0 


3352 




12A0 


3353 




12A0 


3354 




12A0 


3355 




12A0 


3356 




12A0 


3357 




12A0 


3358 


23 D3 


12A0 






12A2 


3359 


22 D3 


12A2 






12AA 


3360 




12AA 


3361 


C9 


12AA 






12A5 


3362 




12A5 


3363 




12A5 


3364 




12A5 


3365 




12A5 


3366 




12A5 


3367 




12A5 


3368 




12A5 


3369 




12A5 


3370 




12A5 


3371 


00 06 


12A5 






12A7 


337? 


05 OE 


12A7 






12A9 


3373 


2A 


12A9 




0A19 


12AA 






12AC 


3374 


09 


12AC 






12AD 


3375 



.BYTE 


*0315 


.WORD 


<STOP CPU-HEAD> 




CLEAR" MICRO STEP 


.BYTE 


*O250 J A 


.BYTE 


*062 


.WORD 


<H1CR0 ST£P-HEAD> 




CALL SAVE WR 


.BYTE 


*0315 


• WORD 


<SAVE WR"HEAD> 




CALL " SET FOR CONT R 


.BYTE 


*0315 


• WORD 


<SET FOR CONT R"HEAO> 




jMP Restart cpu 


.BYTE 


*0303 


.WORD 


<restart cpu-head> 



;with A 



2057$: 



.BYTE 



ENDIF 



RET 
*0311 



; CLEAR FLAG 

;SAVE CPU WORKING REGS 

;N0 SPACE, END MICRO STEPPING 

; CONTINUE COMES HERE 

; GENERATE LCu 2057 NAME 



; MICRO STEP^CPU^R 

; THIS Routine cSuses the machine to do one micf^o instruction 



;register A 

;S1N6LE step CPU 
;register A 



MICRO STEP CPU R: 

OUT SETSS 

.BYTE *0323 , SETSSS255 

OUT CLRSS 

.BYTE ^0323 , CLRSS&255 

RET 
.BYTE ^0311 



* **************************** ******f«***«i»**(''i****t*********t**************** 

; INC TEMPW 5 

; THIS ROUTINE INCREMENTS THE VALUE OF TEMP_WORD BY 5 

INC lEMPW 5: HVI B,0 

,SyTc <B*8> I 6 , 0&255 

MVI C,5 

.BYTE <C*8> ! 6 , 5B255 

LHLO TEMP WORD 
.BYTE ''052 

.WORD <TEMP WORD"HEAD> 

DAD " B ; ADD 5 TO TEMP WORD 

.BYTE <B*8> ! 9 

SHLD TEMP WORD ;T0 MOVE TO NEXT FLAG NAME 



f 



ZZ-ENKAB-1.5 .MAIN 
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22 
0419* 



C9 



23 

C6 
01 

77 

2B 

71 

CE 

00 

77 
C9 



12AD 

12AE 

12B0 

12B0 

12B0 

12B1 

12B1 

12B1 

1231 

12B1 

12B1 

1281 

12B1 

12B1 

12B1 

12B1 

12B1 

12B1 

1281 

1281 

12B1 

1282 

1282 

1282 

1283 

1283 

128A 

1285 

1285 

1286 

1286 

1287 

12B7 

1287 

1288 

1288 

1289 

128A 

128A 

1288 

1288 

12BB 

128C 

128C 

12BC 

128C 

128C 

12BC 

128C 

128C 

128C 

12BC 

128C 

128C 

12BC 

12BC 

12BC 
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3376 
3377 

3378 
3579 
3380 
3381 
3382 
3383 
338A 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 

3393 
339A 

3395 



3396 

3397 

3398 
3399 

3A00 

3A01 

3A02 
3-!.03 

3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 



.BYTE 
.UORD 



.BYTE 



*042 
<TEMP_WORD-HEAD> 

RET 
*0311 



INC WORD R 

THJ5 ROUTINE INCREMENTS A WORD OF DATA 

INPUT CONDITIONS: 

H+L = POINTER TO THE WORD TO INCREMENT 
OUTPUT CONDITIONS: 

CONDITION CODES 



INC WORD R: 

.8YTE 



.BYTE 

.8YTE 
.BYTE 

.BYTE 

• BYTE 

.BYTE 

.BYTE 
.BYTE 

.BYTE 
.BYTE 



INX H 

<H*8> : 3 

MOV A.M 

*0100 ! <A*8> ! M 

ADI 1 

^^0306 

1 

MOV M,A 

*0100 ! <M*8> ! A 

DCX H 

<H*8> I 11 

MOV A,M 

*O100 1 <A*8> I M 

ACI 

'^0316 



MOV M,A 

''OIOO ! <M*8> ! A 

RET 
^^0311 



;POINT TO LOW ORDER PART 



;INC VALUE IN LOW ORD. PART 
;MOVE TO HIGH ORDER PART 

;ADD ZERO + CARRY 



DECft WORD R 

THIS"R0UTTNE DECREMENTS A WORD OF DATA 

INPUT CONDITIONS: 

H+L = POINTER TO THE WORD TO DECREMENT 
OUTPUT CONDITIONS: 

CONDITION CODES 



DECR.WORD.R: 



INX 



H 



;MOVE TO SECOND BYTE 
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23 

7E 

D6 

01 

11 
28 

11 

DE 
00 

11 

FE 
00 

CO 

23 

7E 

FE 
00 

C9 



?^A 
005 A' 

60 

32 

005A' 



128C 

12BD 

12BD 

12BD 

12BE 

128E 

12BF 

12C0 

12C0 

12C1 

12C1 

12C2 

12C2 

12C2 

12C3 

12C3 

12CA 

12C5 

12C5 

12C6 

12C6 

12C6 

12C7 

12C8 

12C8 

12C9 

12C9 

12CA 

12CA 

12C8 

12C8 

12CC 

12C0 

12CD 

12CE 

12CE 

12CE 

12CE 

12CE 

12CE 

12CE 

12CE 

12CE 

12CE 

12CE 

12CE 

12CE 

12CE 

12CE 

12CE 

12CE 

12CF 

1201 

12D1 

n\>2 

12D2 
12n3 



3419 
3420 

3421 



3422 

3423 

3424 
3425 

3426 

3427 

3428 
3429 

3450 
3431 
3432 
3433 

3434 

3435 
3456 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 
3450 

3451 
3452 



.BYTE <H*8> ! 3 





MOV 


A,M 




.BYTE 


'^01 00 1 


<A*8> 


: M 




SUl 


1 




.BYTE 


*0326 






.BYTE 


1 








MOV 


M,A 




.8YTE 


*0100 ! 


<M*8> 


! A 




DCX 


H 




.BYTE 


<H*8> : 


11 






MOV 


A,M 




.BYTE 


'^OIOO 1 


<A*8> 


1 M 




SBI 







.8YTF 


^^0336 






.BYTE 











MOV 


M,A 




.BYTE 


-^0100 1 


<M*8> 


! A 




CPl 







.BYTE 


*0376 






.BYTE 




mi 






.BYTE 


^^0300 








INX 


H 




.BYTE 


<H*8> ) 


3 






MOV 


A,M 




.BYTE 


*0100 ! 


<A*8> 


1 M 




CPI 







.BYTE 


*0376 






.BYTE 
■ BYTE 




RET 

*0311 







;DEC VALUE IN LOW ORD. PART 



;M0VE TO HIGH ORD. PART 



;SUB CARRY 
;with borrow 



; CHECK FOR ZERO RESULT 



;SEND BACK COND. CODE 



********!»******■ *************************************************************** 

WRITE LS STAT 

THIS ROUTJNE WRITES THE LS ERROR CONTROL WORD ONLY IF THE 

WCS IMAGE IS LOADED 

THE ROUTJNE CAN BE ENTERED AT THE SET BIT OR LLEAR BIT ENTRY POINT. 

IN THAT CASE, THE B REGISTER MUiT BE LOADED WITH THE BIT TO SET OR CLEAR 

BEFORE ENTRY TO THIS ROUTINE. 

****************************************************************************** 



SET LS STAT: 
.BYTE 

.WORD 

.BYTE 

.BYTE 
.WORD 



LDA FLAGS 
*072 

<FLAGS-HEAD> 
ORA B 
^^0260 I B 
STA FLAGS 
^062 
<FLAGS-HEAD> 



;GET CURRENT FLAGS 

;0R IN THIS BIT TO SET FLAG 
; STORE NEW FLAGS 



I... 



:ZZ-EN<AB-1.5 
.MAIN. 



.MAIN. 



C3 



3A 
005A' 

AO 

32 
005A' 



3A 
0588' 

OF 
02 

i2Fr 



3A 
005A' 

32 

OOAC* 



A8 3E 

CD 
1U6* 



C9 



7E 

32 



12D5 

12D5 

12D6 

12D8 

12D8 

12D8 

12D8 

12D9 

12DB 

12De 

12DC 

12DC 

120D 

12DF 

12DF 

12DF 

12E0 

12E2 

12E3 

12EA 

12E6 

12E6 

12E6 

12E7 

12E9 

12E9 

12EA 

12EC 

12EC 

12EC 

12EE 

12EE 

12EF 

12F1 

12F1 

12F1 

12F1 

12F1 

:2F1 

12f2 

12F2 

12F2 

12F2 

12F2 

12F2 

'2f2 

■'2f2 

Wf2 

12F2 

12F2 

12F2 
12F2 
12F2 
12F2 
•I2F2 
12F3 
12F3 



3A53 



345A 
3455 
3456 



3457 
3458 



3459 
3460 



3461 
3462 



3463 



3464 
3465 

3466 



3467 
3468 

3469 
34?0 

3471 

3472 

3473 

34 74 

3475 

3476 

3477 

3478 

3479 

3480 

348 

3482 

3483 

3484 

3485 

3486 



.BYTE 
.WORD 

CLEAR.LS.STAT: 

.BYTE 
■ WORD 

.BYTE 

.BYTE 
.WORD 

WRITE LS STAT: 
.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 

.BYTE 
.WORD 



2058$: 



.BYTE 
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JMP WRITE LS STAT 
*O303 ■ " 
<WRITE LS STAT-HEAD> 



LDA FLAGS 
^072 

<FLA6S-HEAD> 
ANA B 
'^0240 ! B 
STA FLAGS 
"062 
<FLAGS-HEAD> 

IF WCS LOADED 

*072 

<WCS LOADED-HEAD> 

^^017" 

"0322 

<205B$-HEAD> 

LDA FLAGS 

*072 

<FLAGS-HEAD> 

STA 0ATA3 

*062 

<DATA3-HEAD> 

MVI A, FLAG LOC 
<A*8> ! 6 , FLAG LOCa255 
CALL WRITE LS"R 
*0315 
<WRITE_LS_R-HEAD> 

ENDJF 



RET 

*0511 



;WRITE FLAGS IN LS 



;GET CURRENT FLAGS 

;AND in THIS BIT TO CLEAR FLAG 
;STORE NEW FLAGS 



;GET STATUS FLAGS 



;WRITE TO LS ERROR CONTROL LOC 



;GENERATE LCL 2058 NAME 



****************************************************************************** 

PERFORM CSR R 

THIS ROOTINf WILL PUT INSTRUCTIONS IN TO THE CSR AND EXECUTE THEM 

INPUT CONDTIONS: 

H+L = POINTER TO INSTRUCTION TABLE 
TABLE = CNTJNSTJNST, 



PERFORM^CSR_R: 



MOV A,M 

.BYTE *0100 ! <A*8> : M 

STA CSR CNT 
.BYTE ^^062 



;GET COUNT 
;AND SAVE 



7Z-ENKAB-1.5 .MAIN 

i.MAlN. 
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025D' 



23 

22 
0A19' 



2A 
0419' 

00-88' 

CD 
0F5F' 

22 
0419' 



CD 
0EE7' 



?3 D3 

22 D3 



21 
02'5D' 

35 

C2 
12FA' 



21 
00'9E' 

11 
OO'BS' 

CD 
OFSF' 



TD 
0EE7' 



rg 



12f4 
12F6 
12F6 

12F6 

12F7 

12F7 

12F8 

12FA 

12FA 

12FA 

12FB 

12FD 

12FD 

12FE 

1300 

1300 

1301 

1505 

1303 

1304 

1306 

1306 

1306 

1307 

1309 

1309 

1309 

150B 

1308 

130D 

130D 

130D 

130E 

1310 

1310 

1311 

1311 

1312 

1314 

1314 

1314 

1315 

1317 

1317 

1318 

131A 

131A 

1316 

i31D 

151D 

131D 

131E 

1520 

1320 

:320 

13?) 

1321 



3487 
3488 

3439 



3490 
5491 1$ 



3492 



3493 



5494 



3495 
3496 



3497 
3498 

5499 

5500 
5501 



3502 
3503 



3504 
3505 



3506 
3507 

350S 
3509 

351C 

3511 

351? 
3515 



.WORD <CSR_CNT-HEAD> 



.BYTE 

• BYTE 
.WORD 



.BYT 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
.WORD 



.BYTE 
.BYTE 



.BYTE 
.BYTE 

.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.WORD 



.BYTE 



INX H 

<H*8> ! 3 

SHLD TEMP WORD 

^042 

<TEMP_WORD-HEAD> 

LHLD TEMP WORD 

*052 

<TEMP W0RD-HEAD> 

LXl " D.CSR VALUE 

<D*8> ! 1 

<CSR VALUE-HEAD>&255 

CALL" MOVER 3 R 

-^031 5 

<MOVER 3 R-HEAD> 

SHLD " Temp word 

*042 
<TEMP_W0RD"HEAD> 

CALL LOAD CSR R 

"0315 

^-LOAD CSR R-HEAD> 



;MOVE 3 BYTES OF INST TO CSR.VALUE 
«CSR VALUE-HEAD>£*XFF00>/256 



OUT 
^0323 
OUT 
'^0323 



SETSS 
SETSS&255 
CLRSS 
CLRSS&255 



LXI H,CSR CNT 

<H*8> ! 1 

<CSR rNT-HEAD>6255 

DCR " M 

'^05 ; <8*M> 

JNZ 1$ 

*O302 

<1$-HEAD> 

LXl H,X MOV WRWR 

<H*8> ! I " 

<t MOV WRWR-HEAD>£255 

LXT " D,CSR VALUE 

<U*8> ! 1 

<LSR VALUE"HEAD>S25: 

:all" mover 3 R 

*0315 
<M0VER,3,R"HEAD> 

call LCAD CSR R 

*0315 ■ ■ 

<LOAD.CSrt_R-HEAD> 

RFT 



;PUT INST IN CSR 



; register A 

;SINGLE STEP CPU 
; register A 



«CSR CNT"HEAD>&*XFF00>/256 

.'DECREMENT THE COUNT 

;L00P UNITL ZERO 



.■LEAVE MOV INST IN CSR TO 

«X MOV WRWR-HEA0>a*XFFO0>/256 
" ".'ENABLE Y-BUS 

«CSR_VALUE-HEAD>&*XFF00>/256 



;LOAD MOV 



iZ?-ENKAB-1.5 .MAIN. 

.MAIN. 



AP 
12 
025E' 

CD 
1932* 



3A 
CA0J5' 

OF 
D? 
137E' 



5A 
038A' 

87 
1257- 



83 DB 

IF- 

1375' 

01 5E 

12 

0011' 



CD 
193^' 

CD 
10C9' 



1321 

1321 

1321 

1321 

1521 

1321 

1321 

1321 

1321 

1321 

1521 

1321 

1321 

1321 

1522 

1^23 

1325 

1325 

1526 

1328 

13?8 

1528 

1528 

1529 

1528 

152C 

152D 

152F 

132F 

152F 

1350 

.552 

1552 

1555 

1555 

155A 

1536 

1356 

:556 

1558 

1558 

1559 

1559 

155A 

155C 

155C 

135C 

153E 

133E 

135F 

15^1 

15A1 

1541 

1342 

1544 
1545 



3514 
5515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
5525 
3524 
5525 
5526 



5527 



3528 
3529 
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ATTENTION 

THJS ATTENTION ROUTINE IS USED WHEN THE CPU IS EXECUTING TESTS(RUNNIN6) 

IT IS BASICLY AN IDLE LOOP FOR THE 8085. DURING THE IDLE LOOP 

THE 8085 CHECKS FOR SPECIAL OCCURANCES SUCH AS *C/P,OR CPATTN 

IF CPATTN SIGNAL COMES HIGH IT MEANS THAT THE CPU MICRO CODED 

DIAGNOSTIC IS REQUESTING SOMETHING. MICRO STEPPING IS DONE ONCE 

FOR EACH ITTERATION OF THE IDLE LOOP 



99 
(1) 



ATTENTION: 

.BYTE 
.BYTE 
.WORD 

.BYTE 

.WORD 



4001$: 



3530 
3551 



5552 
3533 

3534 
355S 

3556 
5557 



3558 

3559 

5540 



5541 
3542 



5545 



LDA 
.BYTE 
.WORD 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 

.WORD 

.BYTE 

.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 
.WORD 



DATA XFER FLG 
A " ■ 



CLEAR 

'^0250 I 

*062 

<DATA XFER FL6-HEAD> 

CALL " RESeT TIMOUT 

*0515 

<RESET_TIM0UT-HEAD> 

WHILE RUNNING 

RUNNING 

^^072 

<RUNNING-HEAD> 

*017 

^^0322 

<2059$-HEAD> 

LDA MICRO STEP 

*072 

<M1CR0 STtP"HEAD> 

ORA " A 

^^0260 1 A 

CNZ MICRO STEPER 

*0504 

<MICR0 STEPER-HEAD> 



;with A 



;INIT TIMOUTS AND XFER INFO 



IN 

'^0555 

RAR 

"057 

IFC 

*0522 

<2060$-HEAD> 



CPATTN 
CPATTN&255 



;G£T MKRO^STEP FLAG 

;SET CONDITION CODES 
;CALL IF MICRO STEP 



; to register A 

lU CPU.ATTENTION 



MVl AJ 

<A*8> I 6 . U255 

STA APT MESSAGE CODE+1 

^^062 

<APT.MESSAGE.C0DE+1"HEAD> 

CALL RESET TIMOUT 

"0515 

<RESET TIMOUT-HEAD> 

CALL " STOP CPU 

"0315 

<STOP CPU-HEAO> 



;SET APT START FLAG 



;CPU HEARD, SO RESET TIMOUT 



!ZZ-ENKAB"1.5 .MAIN. 
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13A7 


3544 








13A7 


3545 




LHLD SAVED UPC 


?A 


1347 




.evTE 


*052 


OOC^' 


1348 




.WORD 


<SAVED UPC-HEAD> 




13AA 


3546 




SHLD " UPC SUB 


22 


134A 




.8YTE 


''042 


00C6' 


1348 
134D 


3547 


.WORD 


<UPC^SUB-HEAD> 




134D 


3548 




CALL SAVE WR 


CD 


134D 




.evTE 


*0315 


0C11' 


134E 
1350 


3549 


.WORD 


<SAVE_WR-HEAD> 




1350 


3550 




CALL CHECK CNTLC 


CD 


1350 




.BYTE 


^^0515 


1075' 


1351 




.WORD 


<CHECK_CNTLC-HEAD> 




1353 


3551 








1353 


3552 




MVl A, STATUS 


AO 3E 


1353 




.BYTE 


<A*8> 1 6 , STATUS6255 




1555 


3553 




CALL READ LS R 


CD 


1355 




.8YTE 


*0315 


1167' 


1556 




.WC.^D 


<READ LS R-HEAD> 




1558 


3554 




CALL " 50 COMMANDS 


CD 


1358 




.8YTE 


*0315 


137F' 


1359 




.WORD 


<DO_COMMANDS-HEAD> 




1558 


3555 








1558 


3556 




IFN EOS FLG 


3A 


1558 




.8YTE 


*072 


0056' 


155C 




.WORD 


<EOS FLG"HEAD> 


OF 


135E 




.BYTE 


*017" 


DA 


135F 




.BYTE 


"0532 


1375' 


1360 
1362 


3557 


.WORD 


<2061$"-HEAD> 




1362 


3558 




JFN TEST ZERO 


5A 


1362 




.BYTE 


^^072 


Q^^7' 


1563 




.WORD 


<TEST ZERO-HEAD> 


OF 


1565 




.BYTE 


*017 " 


DA 


1566 




.BYTE 


'^0532 


1375' 


1367 




.WORD 


<2062$"HEAD> 




1569 


3559 




CALL RESTORE WR 


CD 


1569 




.BYTE 


"0315 


OCOA' 


156A 




.WORD 


<RESTORE WR-HEAD> 




136C 


3560 




LHLD DPC SUB 


?A 


136C 




.BYTE 


"052 


00C6' 


136D 




.WORD 


<UPC SUB-H£AD> 




156F 


3561 




SHLD" STARTING UPC 


22 


136F 




.BYTE 


"042 


0407' 


1370 




.WORD 


<STARTJNG UPC-HEAD> 




1572 


3562 




CALL START CPU 


CD 


1372 




.BYTE 


"0515 


10FF' 


1573 




.WORD 


<5TART CPU-HEAD> 




1575 


3565 




ENDIF " 




1575 


2062S: 








1375 


5564 








1575 


3565 




ENDIF 




1575 


206U: 








1575 


3566 








1375 


3567 




ENDIF 



;SAVE UPC WHEN GOING TO 



; SUBROUTINE 



;l? CONTROL C TYPED STOP 



;READ LS COMMAND + STATUS 



;IF EOS DONT RESTART 



;IF TEST DONT RESTART 



;RETURN FROM SUBROUTINE 



; START CPU AGAIN 



; GENERATE LCL 2062 NAME 



;GENERATE LCL 2061 NAME 



.MAIN. 



.MAIN, 



CD 
4129 

CD 
1907* 



C5 
1328' 



C9 



11 
OO'AF* 

CD 
OF 70' 



5A 
00B2' 
E6 
10 
CA 
1595' 

AF 
3C 
12 
03D5* 

CD 
1658* 



3A 
008P' 

f6 
?0 



1375 

1575 

1375 

1575 

1576 

1578 

1578 

1579 

1378 

1578 

1578 

157C 

157E 

157E 

157E 

157E 

157F 

157F 

137F 

137F 

137F 

137F 

137F 

137F 

137F 

157F 

157F 

157F 

1380 

1582 

138? 

1385 

1585 

1585 

1385 

1386 

1388 

1389 

158A 

1388 

138D 

158D 

158E 

138F 

1590 

1592 

1592 

1595 

1395 

1395 

1595 

1395 

1395 

1395 

1396 

1398 

1399 
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5568 
3569 



3570 



3571 
3572 



3573 
3574 

3575 
3576 
3577 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3585 



3586 



3587 
3588 



2060$: 



2059$: 



CALL 6CVECT 

.8YTE *0315 
,U0RD <GCVECT-HEAD> 

CALL TJHOUT 

.8YTE *0315 
.WORD <TIMOUT"HEAD> 



ENDWHJLE 
.8YTE *O303 
.WORD <4001$"HEAD> 



RET 
.8YTE ^^0311 



DRB0:C8ALL.EMKAB]ENKAB.MAC;3 

;GENERATE LCL 2060 NAME 

;CHECK FOR OPERATOR REQUEST l-^P) 

;CHECK FOR TIMOUT 



(1) 



/GENERATE LCL 2059 NAME 



DO COMMANDS 

THTS ROUTINE DECODES THE LS COMMAND AND STATUS WORD AND CALLS ROUTINES 

TO PERFORM THE FUNCTIONS WHERE NECESSARY. 



3589 



3590 



3591 
359? 

3593 
3594 



' ************* 

00 COMMANDS: 
.BYTE 
.BYTE 

.8YTE 
.WORD 



.8YTE 
.WORD 
.BYTE 
.BYTE 
.BYTE 
.WORD 

■ BYTE 
.BYTE 
.BYTE 

.WORD 

.BYTE 
,WORD 



******************** (»«*******(****i^******************************* 

LXI D, COMMANDO ; DESTINATION 

<D*8> I 1 

<COMMAND0-HEAD>£?55 , «COMMAND0"'HEAD>&^XFF00>/?56 



2063$: 



.BYTE 
.WORD 
.BYTE 
.BYTE 



CALL MOV FROM DATAO 

*0515 

<MOV,FROM.DATA0-HEAD> 

IFMBI COMMANDS, BAD STATUS 

^072 

<C0MMAND5"HEAD> 

*0546 

BAD STATUS 

''03T2 

<?065$-HEAD> 

SET PACK ERROR 

*O250 ! A ;with A 

^^04 : <8*A> 

*062 

<PACK ERROR-HEAD> 

CALL " PACK WARNING 

*0515 

<PACK_WARNING"HEAD> 

ENDIF 



IFMBI C0MMAND5, WRONG LAB 

*072 

<C0MMAND5-HEAD> 

*0546 

WRONG LAB 



;MOVE 4 BYTES OF DATA FROM 



; DATAO 

;BIT 4 = BAD RL02 DISK STATUS 



;SET FLAG INDICATING PACK ERROR 



.•GENERATE LCL 2063 NAME 

;BIT 5 = CRD PACK NOT IN RL02 






ZZ-ENKA8-1.5 ,MA1N, 
.MAIN, 
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CA 


139A 




.BYTE 


*0312 


13A5* 


1398 




.WORD 


<2064$-HEAD> 




139D 


3595 




SET PACK ERROR 


Af 


139D 




.BYTE 


*O250 I A " ;with 


3C 


139E 




.BYTE 


*04 ! <8*A> 


32 


139F 




.BYTE 


*062 


03D5* 


13A0 




.WORD 


<PACK ERROR-HEAD> 




13A2 


3596 




CALL " PACK WARNING 


CD 


13A2 




.BYTE 


-^0315 


165B' 


13A3 




.WORD 


<PACK.WARNJNG-HEAD> 




13A5 


3597 








13A5 


3598 




ENDIF 




13A5 


2064$: 








13A5 


3599 








13A5 


3600 




IFM8J COMMANDS, UBE PRES 


3A 


13A5 




• BYTE 


^072 


00B2' 


13A6 




.WORD 


<C0HMAND3-HEAD> 


E6 


13A8 




.BYTE 


*0346 


AO 


13A9 




.BYTE 


UBE PRES 


CA 


13AA 




.BYTE 


^^0312 


13AD' 


13AB 




.WORD 


<2065$-HEAD> 




13AD 


3601 




ENDJF 




13AD 


2065$: 








15AD 


3602 








13AD 


3603 




IFMBI COMMANDS, R80 PRES 


5A 


13AD 




.BYTE 


'^072 


0082' 


13AE 




.WORD 


<C0MMAND3-HEAD> 


E6 


1380 




.BYTE 


-^0346 


80 


1381 




.8YTE 


R80 PRES 


CA 


1382 




.BYTE 


^^0312 


1385' 


1383 




.WORD 


<2066$-HEAD> 




1385 


360A 




ENDIF 




1385 


2066$: 








1385 


3605 








1385 


3606 




IFMBI C0MMAND2,WCSERR 


5A 


1385 




.8YTE 


'^072 


OOBV 


1386 




.WORD 


<C0MMAND2-HEAD> 


E6 


1388 




.8YTE 


^0346 


01 


1389 




.BYTE 


WCSERR 


CA 


138A 




.BYTE 


''0312 


13C0* 


1388 




.WORD 


<2067$-HEAD> 




138D 


3607 




CALL WCS ERROR 


CO 


1380 




.BYTE 


^0315 


UA2* 


138E 




.WORD 


<WCS £RROR-HEAD> 




13C0 


3608 




ENDir 




13C0 


2067$ r 








13CQ 


3609 








13C0 


3610 




IFMBI C0MMAND2,SETPAR ERR 


3A 


13C0 




.BYTE 


^^072 


0081' 


13C1 




.WORD 


<C0MMAND2-HEAD> 


F6 


13C5 




.BYTE 


*0346 


02 


13C4 




.BYTE 


SETPAR ERR 


CA 


13C5 




.BYTE 


*0312 " 


15D0' 


13C6 




.WORD 


<2068$-HEAD> 




13C8 


3611 




SET LS SETPARERR 


AF 


13CS 




.BYTE 


'^0250 : A " ;with 


3C 


13r9 




.BYTE 


*0A : <8*A> 
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;SET FLAG INDICATING PACK ERROR 



102 
(1) 



; GENERATE LCL 2064 NAME 
;BIT 6 = PRINT UBE PRESENT 



/GENERATE LCL 2065 NAME 
;BIT 7 = PRINT R80 PRESENT 



; GENERATE LCL 2066 NAME 
;BIT 8 = ERROR FOUND BY WCS 



; GENERATE LCL 2067 NAME 
;BIT 9 = SET PARITY ERROR 



;SET FLAG FOR USE LATER 



ZZ-ENKAB-1.S 

.MAIN. 



.MAIN, 
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(1) 



32 


13CA 


• 


.BYTE 


*062 


03A8' 


15C8 




.WORD 


<LS SETPARERR-HEAD> 




13CD 


3612 




calC set PAR.JNT 


CD 


13CD 




■ BYTE 


*0315 


16C7' 


13CE 




.WORD 


<SET^PAR,]NT-HEAD> 




13D0 


3613 








13D0 


36U 




ENDIF 




13D0 


2068$: 








13D0 


3615 








13D0 


3616 




IFMBI C0«MAND2,MM SIZE 


3A 


13D0 




.BYTE 


*072 


ooar 


13D1 




.WORD 


<C0MMAND2-HEAD> 


E6 


13D3 




.BYTE 


-^0346 


08 


13D4 




.BYTE 


MM SIZE 


CA 


13D5 




.BYTE 


*0312 


13D8' 


13D6 




.WORD 


<2069$-HEAD> 




13D8 


3617 




ENDJF 




13D8 


2069$; 








13D8 


3618 








13D8 


3619 




IFMBJ C0MMAND2,FPA PRES 


3A 


13D8 




.BYTE 


*072 


OOBT 


13D9 




.WORD 


<C0MMAND2-H£AD> 


E6 


13D8 




.BYTE 


*03A6 


10 


13DC 




.BVTE 


FPA PRES 


CA 


13DD 




.BYTE 


*03T2 


13E3' 


13DE 




.WORD 


<2070$-HEAD> 




13E0 


3620 




CALL PRINT MOD PRES 


CD 


13E0 




■ BYTE 


^031 5 " " 


1723' 


13E1 




.WORD 


<PRINT MOD PRES'-HEAD> 




13E3 


3621 




ENDIF " ~ 




13E3 


2070$: 








13E3 


3622 








13E3 


3623 




IFMBI C0MMAND2,XFER 


5A 


13E3 




.BYTE 


-^072 


OOBV 


13t^ 




.WORD 


<C0MMAND2-HEAD> 


E6 


13E6 




.BYTE 


*03^6 


20 


13E7 




.BYTE 


XFER 


CA 


13E8 




.BYTE 


*0312 


13EE* 


13E9 




.WORD 


<207U-HEAD> 




13EB 


362A 




CALL DATA XFER 


CD 


13EB 




.BYTE 


^^031 5 


1996' 


13EC 




.WORD 


<DATA XFER-HEAD> 




13EE 


3625 




ENDIF" 




13EE 


2071$: 








13EE 


3626 








13EE 


3627 




IFMBI C0MMAND2,EOS 


5A 


15EE 




.BYTE 


^^072 


OOBV 


15EF 




.WORD 


<C0MMmND2-HEAD> 


E6 


13F1 




.BYTE 


"03^6 


^0 


13f2 




.BYTE 


EOS 


CA 


15F3 




.BYTE 


*0312 


13FB' 


13F^ 




.WORD 


<2072$-HEAD> 




13^6 


3628 




SET EOS FL6 


AF 


13F6 




.BYTE 


*O250 1 A i\ 


3C 


13F7 




.BYTE 


*0^ : <8*A> 


S? 


13F8 




.BYTE 


*062 


0056' 


13F9 




.WORD 


<EOS FLG-HEAD> 



;SET UP PARITY ERROR IN SPECIFIED 

; WCS LOCATION 
.'GENERATE LCL 2068 NAME 
;BIT 11 = PRINT MM SIZE 



/GENERATE LCL 2069 NAME 
;BIT 12 = PRINT FPA PRESENT 



;PRINT PRESENT OR NOT PRESENT 

/GENERATE LCL 2070 NAME 
;BIT 13 - DATA TRANSFER REQ 



.'GENERATE LCL 2071 NAME 
;BIT U = END OP SECTION 



;with A 



ZZ-ENiKAB-l.b 
.MAIN. 



.MAIN. 





13F8 


3629 




13F8 






13FB 


3630 




13F8 


3631 


3A 


13F8 




OOBV 


13FC 




E6 


13FE 




80 


13FF 




CA 


UOO 




U06' 


U01 






1A03 


3632 


CD 


U03 




1881' 


UOA 






U06 


3633 




U06 






1406 


3634 




U06 


3635 


3A 


U06 




OOBO* 


U07 




f6 


U09 




01 


UOA 




CA 


U08 




v*ir 


HOC 






UOE 


3636 


CD 


UOE 




1760' 


UOF 






K11 


3637 




U11 






U11 


3658 




U11 


3639 


3A 


U11 




OOAF* 


U12 




E6 


UU 




02 


U15 




CA 


U16 




UIC 


U17 






U19 


3640 


CD 


U19 




17DF' 


U1A 






U1C 


3641 




U1C 






H1C 


3642 




H1C 


3643 


3A 


^^^c 




OOAF' 


U1D 




E6 


U1F 




OA 


1420 




CA 


U21 




Mi27* 


U22 






U2A 


3644 


CD 


1424 




16EA' 


1425 






1427 


364 5 




1427 






1427 


3646 




1427 


3647 


3A 


14?7 





2072$: 



2073$; 



2074$: 



2075$: 



2076$: 



.BYTE 
.WORD 
.8YTE 
.BYTE 
.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
• WORD 
.BYTE 
.BYTE 
.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
.WORD 
.BYTE 
.BYTE 
.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
.WORD 
.BYTE 
.BYTE 
.BYTE 
.WORD 

.BYTE 
• WORD 



.BYTE 
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ENDIF 



IFMBI C0MMAND2,6EG,TST 

^^072 

<C0MMAND2-HEAD> 

*0346 

BEG TST 

*03T2 

<2073$-HBAD> 

CALL BEGIN OF TEST 

*o:i5 

<BEbiN OF TEST-HEAD> 
ENDIF " 



IFMBI COMMANDS SIGNAL 

*072 

<C0MMAND1-HEAD> 

^0346 

SIGNAL 

''0312 

<2074$-HEAD> 

CALL SET SIGNALS 

*0315 

<SET SIGNALS-HEAD> 

ENOlF 
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/GENERATE LCL 2072 NAME 
;BIT 15 = BEGINiNG OF TEST 



104 . 
(1) ; 



; GENERATE LCL 2073 NAME 

;B1T 16 = SET UP OF SIGNAL AS 



COMMANDO, LOOPING 



IFMBI 

*072 

<COMMAND0-HEAD> 

*0346 

LOOPING 

*0312 

<2075$-HEAD> 

CALL LOOPER 

^0315 

<LOOPER-HEAD> 

ENDIF 



IFMBI COMMANDO, SINGLEJRR 

*072 

<COMMAND0-HEAD> 

*0346 

SINGLE ERR 

^0312 

<2076$-HEAD> 

CALL PRINT SINGLE 

*0315 

<PRINT SINGLE-HEAD> 

ENDIF 



.•GENERATE LCL 2074 NAME 

; SPECIAL CPU LOOPING CONTROL 



.•GENERATE LCL 2075 NAME 

;BIT 26 = PRINT SINGLE BIT ERR 



IFMBI 
'^072 



COMMANDO, CLEARPAR^ERR 



.'GENERATE LCL 2076 NAME 
;BIT 27 = CLEAR PARITY ERROR 



Z2-ENKAB-1.5 .MAIN 
.MAIN. 
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105 
(1) 



GOAF' 


U28 




E6 


K2A 




08 


U2B 




CA 


U2C 




U36* 


1420 






U2F 


3648 


AF 


U2F 




32 


1430 




03A8' 


1451 






1433 


3649 


CO 


1433 




16D9' 


1434 






1436 


3650 




1436 


3651 




1436 






1456 


5652 




1436 


3653 


3A 


1436 




OOAF* 


1457 




E6 


1439 




80 


143A 




CA 


1438 




uAr 


143C 






143E 


3654 


CO 


143E 




17A2' 


143F 






1441 


3655 




1441 






1441 


3656 




1441 


3657 


C9 


1441 






1442 


3658 




1442 


3659 




1442 


3660 




1442 


3661 




1442 


3662 




1442 


3663 




1442 


3664 




1442 


3665 




1442 


3666 




1442 


3667 




1442 


3668 




1442 


3669 




1442 


3670 




1442 


3671 




1442 


3672 




U42 


3673 




1442 


3674 




1442 


3675 




1442 


3676 




1442 


3677 




1442 


3678 




1442 


3679 




1442 


3680 




1442 


3681 


^1 


1442 




0^'EF 


' 1443 





2077$: 



2078$: 



.WORD <COMMAN00-HEA0> 
.BYTE *0346 
.BYTE CLEARPAR ERR 
.BYTE *0312 " 
.WORD <2077$-HEAD> 

CLEAR LS SETPARERR 
.BYTE *O250 ! A " 
.BYTE *062 
.WORD <LS SETPARERR-HEAD> 

CALC CLEAR PAR INT 
.BYTE *0315 " " 
.WORD <CLEAR_PAR.INT-HEAD> 

ENOIF 



IFHBJ COMMANOOJDC.PRES 
.BYTE *072 
.WORD <COMMAND0-HEAD> 
.BYTE ^^0346 
.BYTE IOC PRES 
.BYTE *03T2 
.WORD <2078$-HEAD> 

CALL PRINT MOO PRES IOC 
.BYTE ''0315 
.WORD <PR1NT MOD PRES JDC-HBAD> 

ENOIF " " 



RET 
.BYTE '^OSn 



;with A 



;CLEAR LS SET PARITY ERROR FLG 

;ftESTORE 6000 PARITY AT ADDRESS 

; SPECIFIED IN LS 7 

; GENERATE LCL 2077 NAME 

;BIT 31 = PRINT IOC PRESENT 



; GENERATE LCL 2078 NAME 



WCS ERROR 

THIS ROUTINE IS EXECUTED WHEN THE COMMAND ANO STATUS WORD INDICATES 
THAT THERE HAS BEEN AN ERROR, IF BELL IS SET THE BELL IS RUNG 
IT ALSO DECODES THE MODULES NAME FROM THE BITS AS FOLLOWS 

BIT - WCS M8395 

1 " CPU M8590 

2 - MCT M8391 

3 - FPA M8389 

4 - MEMORY ARRAY CARD 

5 - IDC M8388 

THIS ROUTINE IS ALSO USED BY THE 8085 BASED TESTS. IN THAT CASE, THE 
CONSOLE. TEST FLAG IS SET ANO SOME DIFFERENT BRANCHES ARE TAKEN, 

WCS ERROR: 

LXl H,FAIL A ;PRINT *FAIL* MESSAGE 

R V TF <H*8> ' ^ "" 
IbyTE <FAIL_A-HEA0>&255 , <<FAIL.A-HEAD>&'^XFF0O>/256 



.-- 



Z2-ENKAB-1.5 
.MAIM. 



•MAIN. 





1445 


3682 


CD 


1445 




100E' 


1446 






1448 


3683 




1448 


3634 


CD 


1448 




101A' 


1449 






1446 


3685 


21 


144B 




01'64' 


144C 






144E 


3686 


CD 


144E 




100E' 


144F 






1451 


3687 




1451 


3688 


3A 


1451 




0255* 


1452 




OF 


1454 




DA 


1455 




uer 


1456 






1458 


3689 




1458 


3690 


A1 3E 


1458 






145A 


3691 


CD 


145A 




1167' 


145B 






USD 


3692 


5A 


145D 




OOAC 


145E 






1460 


3693 


32 


1460 




003F' 


1461 






1463 


3694 




1463 


3695 


42 3E 


1463 






1465 


3696 


CD 


1465 




1167' 


1466 






1468 


3697 


n 


1468 




OO'AO' 


1469 






1468 


3698 


CO 


1468 




OF 70' 


146C 






146E 


3699 




146E 


3700 




146E 


3701 


43 3E 


146E 






1470 


3702 


CD 


1470 




1167' 


1471 






1473 


3703 


11 


1473 




00'4F* 


1474 






1476 


3704 


CD 


1476 




OF 70' 


1477 





.BYTE 
• WORD 



.BYTE 
.WORD 

■ BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 



.BYTE 

.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 

.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 

.BYTE 

.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 
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CALL PRINT STRING R 

'^0315 

<PRINT STRING R-HEAD> 



106 
(1) 



;PRINT ABORT MESSAGE 



CALL CRLF R 

•^0315 

<CRLF R-HEAD> 

LXI " H, ABORT A 

<H*8> ! 1 

<ABORT A-HEAD>R255 , «ABORT A-HEAD>&'^XFF00>/256 

CALL " PRINT STRING R 

*0315 

<PRINT STRING R-HEAD> 



IFN CONSOLE TEST 

-^072 

<CONSOLE_TEST-HEAD> 

*017 

*0332 

<2079$"HEAD> 

MVI A,WCS ERR NUM 

<A*8> ! 6 , W^S ERR„NUM&255 

CALL READ LS R 

''0315 ■ ■ 

<READ LS R-HEAD> 

LDA " 15ATA3 

*072 

<DATA3-HEAD> 

STA CON ERR NUM 

-^062 " " 

<CON.ERR,NUM-HEAD> 

MVI A.WCS EXP OAT 

<A*8> I 6 , Wis E5?P_DAT&255 

CALL READ LS R 

*0315 

<READ LS R-HEAD> 

LXI " 15, C0N_EXP.DAT 

<D*8> 1 1 

<CON EXP 0AT-HEAD>B255 

CALL" ROV FROM DATAO 

^0315 

<MOV FROM DATAO-HEAO> 



;GET VALUES FROM LS IF NOT 



; 8085 BASED CONSOLE TEST 
;6ET ERROR NUMBER FROM LS 



;STORE IN MEM 



;6ET EXPECTED VALUE FROM LS 



;DESTINATION 

«CON EXP DAT-HEAD>&*XFF00>/256 
" ;M0VE ^ BYTES OF DATA FROM 



MVI A,WCS REC DAT 

<A*8> ! 6 , wrs REC DAT&255 

CALL READ LS"R 

*0315 

<READ LS R"HEAD> 

LXI 15, CON REC.DAT 

<D*8> ! 1 

<CON REC DAT-HEAD>S255 

CALL" nOV FROM DATAO 

^0315 

<MOV FROM_DATA0-HEA0> 



; DATAO 

;GET RECEIVED VALUE FROM LS 

.-DESTINATION 



«CON REC DAT"HEAD>&''XFF00>/256 
" ;M0VE 4 BYTES OF DATA FROM 



ZZ-ENKAB-1.5 .MAIN. 

.MAIN. 





U79 


3705 




U79 


3706 




U79 


3707 


AA 3E 


U79 






147S 


3708 


CD 


U7B 




1167' 


U7C 






U7E 


3709 


11 


U7E 




00'3B' 


M,7^ 






U81 


3710 


CD 


U81 




OF 70' 


U82 






H8A 


3711 




U8A 


3712 




U8A 


3713 


45 3E 


USA 






1486 


3714 


CD 


U86 




1167' 


U87 






U89 


3715 


11 


U89 




OO'AB' 


USA 






U8C 


3716 


CD 


U8C 




OF 70' 


1A8D 






U8F 


3717 




U8F 


3718 




U8F 


3719 


AF 


U8F 




32 


U90 




005F' 


U91 






U93 


3720 


3A 


U95 




OOBO' 


H94 




E6 


U96 




80 


U97 




CA 


1498 




HAO' 


1499 






1498 


3721 


AF 


1498 




3C 


149C 




32 


1490 




005F » 


149E 






14A0 


3722 




14A0 






14A0 


3723 




14A0 


3724 


AF 


14A0 




3C 


14A1 




32 


14A2 




0060* 


14A3 






14A5 


3725 


3A 


14A5 




OOAF' 


14A6 




E6 


14A8 




01 


14A9 





2080$: 



.BYTE 

.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 

.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 
.WORD 

.BYTE 
.WORD 
.BYTE 
.BYTE 
.BYTE 
.WORD 

.BYTE 
.BYTE 
.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.WORD 

.BYTE 
.WORD 
.BYTE 
.BYTE 
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A,WCS ADDR DAT 
I 6 , WCS ADDR DAT&255 
READ LS"R " 



MVI 

<A*8> 

CALL 

*0315 

<READ LS R-HEAD> 

LXI ' P,CON ADD DAT 

<D*8> ! 1 

<CON ADD DAT-HEAD>&255 

CALL" MOV FROM DATAO 

'^0315 

<MOV FROM DATAO-HEAD> 



DRB0:CBALL.ENKABJENKAB.MAC;3 
; DATAO 
;6ET OTHER DATA FROM LS 

^•DESTINATION 



107 • 
(1) ; 



«C0N ADD DAT"HEAD>&^XFF00>/256 
" ;MDVE 4 BYTES OF DATA FROM 



MVI A,WCS MSK DAT 

<A*8> ! 6 , WfS M5K DATS255 

CALL READ L^_R 

^^0315 

<READ LS R-HEAD> 

LXI " 5. CON MSK DAT 

<D*8> 1 1 

<CON MSK DAT-HEAD>&255 

CALL" MOV FROM DATAO 

'^0315 

<MOV FROM DATAO-'HEAD> 



; DATAO 

;6ET ERROR MASK FROM LS 

.■DESTINATION 



«CON MSK DAT-HEAD>&^XFF00>/256 
" ;M0VE 4 BYTES OF DATA FROM 



DATAO 



CLEAR NA EXP REC 

'^0250 ! A " 

^^062 

<NA EXP REC-HEAD> 

IFMBI "COMMANDl^NA 

'^072 

<C0MMAND1-HEAD> 

*0346 

NA 

'^0312 

<2080$-HEAD> 

SET NA ^y.? REC 

*O250 1 A 

*04 I <8*A> 

*062 

<NA EXP REC-HEAD> 

ENOTF " 



SET NA OTHER 

*0250 ! A " 

'^OA I <8*A> 

'^062 

<NA OTHER"HEAD> 

IFMBI COMMANDO, ADDR 

'^072 

<COMMAND0-HEAD> 

*0546 

ADDR 



;with A 



;SEE IF EXP AND REC ARE N/A 



;with A 



;SET FLAG IF SO 



;GENERATE LCL 2080 NAME 



;wilh A 



;SEE IF OTHER DATA IS N/A 



ZZ-ENKAB-1.5 
.MAIN. 



.MAIN, 



CA 


UAA 




UBV 


UAB 






HAD 


3726 


Af 


UAD 




32 


UAE 




0060' 


UAF 






U81 


3727 




UB1 






UB1 


3728 




1AB1 


3729 




UB1 






UB1 


3730 




UB1 


3731 


3A 


1481 




0255' 


14B2 




OF 


14B4 




D2 


1485 




ucr 


1486 






14B8 


3732 




1488 


3733 


21 


1488 




02*57' 


14B9 






1488 


3734 


CD 


1488 




100E' 


14BC 






14BE 


3735 




14BE 


3736 


C3 


14BE 




1541' 


14BF 
14C1 






14C1 


3737 




14C1 


3738 


46 3E 


14C1 






14C3 


3739 


CD 


14C3 




1167' 


14C4 






14C6 


3740 


3A 


14C6 




OOAC 


14C7 






14C9 


3741 


32 


14C9 




0418* 


14CA 






14CC 


3742 


21 


UfC 




08'25* 


14CD 






14CF 


3743 


21 


14CF 




0419' 


14D0 






14D2 


3744 


AF 


14D2 




52 


14D3 




0395' 


14D4 






14D6 


3745 




14D6 


3746 


21 


14D6 




00'55' 


14D7 




46 


1409 





2081$: 



2079S: 



2082$: 



.BYTE 
.WORD 

.BYTE 
.BYTE 
.WORD 



.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 



.8YTE 
.8YTE 

.BYTE 
.WORD 



.BYTE 
.WORD 



.8YTE 

.BYTE 
.WORD 

.BYTC 
.WORD 

• BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 

.BYTE 
.BYTE 
.WORD 



.BYTE 
• BYTE 
.BYTE 
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*0312 

<2081$-HEAD> 
CLEAR NA OTHER 
*O250 I A ■ 
*062 

<na 0ther-head> 

endTf 



;with A 



ENDIF 



console TEST 



IF 

-^072 

<C0NS0LE TEST"HEAD> 

*017 

'^0322 

<2082$-HEAD> 



; CLEAR FLAG IF NOT N/A 



/GENERATE LCL 2081 NAME 

.•GENERATE LCL 2079 NAME 
;CALL OUT FAILING OPTION 



LXI H,CPU A 

<H*8> ! 1 

<CPU A-HEAD>&255 , «CPU A-HEAD>&*XFF00>/256 



;1F 8085 BASED CONSOLE TEST 



CALL' PRINT STMNG R 

*0315 

<PRINT_STRING_R-HEAD> 

ELSE 

^^0303 

<2083$-HEAD> 



MVI A.WCS MOD DAT 

<A*8> ; 6 . WCS MOD DATB255 

CALL READ LS"R 

'^0315 

<READ LS R-HEAD> 

LDA " DATA5 

*072 

<DATA3-HEAD> 

STA TEMP BYTE 

*062 

<TEMP 8YTE-HEAD> 

LXI " H,CRD OPT A 

<H*8> ! 1 

<CRD OPT A-HEAD>&255 

SHLD" TEMP WORD 

*042 

<TEMP WORD-HEAD> 

CLEAR" MOD,ERR 

*O250 ! A 

*062 

<MOD ERR"HEAD> 



THEN CALL OUT CPU BAD 

;FOR WCS BASED TESTS 

.'GENERATE LOCAL SYMBOL NAME 
;READ MODULE DATA FROM LS 



; STORE MODULE DATA 

;POINT TO OPTION CALL OUT TABLE 

«CRD OPT A-HEAD>a*XFF00>/256 
" TSTORE THE POINTER 

;with A 



DO 3 

<H*8> I 1 
<OOLOOP-HEAD>S255 
*0100 ! <B*8> I M 



;FIRST 3 BITS CALL OUT CPU 
<<DOLOOP-HEAD>&'^XFF00>/256 



2Z-ENKAB-1.5 .MAIN. 
.MAIN. 



C5 


UDA 




03 5E 


UDB 




11 


HDD 
UDE 






UDE 


374? 




UDE 


3748 


Ik 


UDE 




0A18' 


UDF 






UE1 


3749 


OF 


UE1 






UE2 


3750 


32 


UE2 




0A18* 


HE3 






UE5 


3751 




UE5 


3752 


D2 


UE5 




UFA* 


UE6 






UE8 


3753 




UE8 


3754 


3A 


UE8 




0395* 


UE9 




OF 


UEB 




DA 


1AEC 




UF5' 


UED 






UEF 


3755 


21 


UEF 




02'57' 


UFO 






\(in 


3756 


CD 


UF2 




100E* 


14F3 






UF5 


3757 




UF5 






UF5 


3758 




UF5 


3759 


AF 


UF5 




3C 


UF6 




32 


UF7 




0395' 


UF8 






UFA 


3760 




UFA 


3761 




UFA 






UFA 


3762 


21 


UFA 




00'S5' 


UF6 




35 


UFD 




C2 


UFE 




UDE' 


^l,}\ 




CI 


1501 




70 


1502 






1503 


3763 




1503 


3764 


21 


1503 




00*55' 


1504 




46 


1506 




C5 


1507 




05 :e 


1508 




11 


150A 





2084$ 



2086$: 



2085$: 



.BYTE 
.BYTE 
.BYTE 



.BYTE 
.WORD 

.BYTE 

.BYTE 
• WORD 



.BYTE 
• WORD 



.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
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^0305 
<A*8> 



! <8*B> 
! 6 . 3&255 
*0100 ! <M*8> i A 



LDA TEMP BYTE 

^072 

<TEMP BYTE-HEAD> 

RRC " 

*017 

STA TEMP BYTE 

^^062 

<TEMP.BYTE-HEAD> 

IFC 

*0522 

<2085$-HEAD> 



MOD ERR 



;CHECK FOR BIT SET 



;CALL OUT BAD CPU 



IFN 

*072 

<M0D ERR-HEAD> 

*017" 

*0332 

<2086$"HEAD> 

LXl H,CPU,A 

<H*8> ! 1 

<CPU A-HEAD>625.S , «CPU A-HEAD>&*XFF00>/256 

CALL" PRINT STRING.R 

*0315 

<PRINT STRING R-HEAD> 

ENDIF " 



;IF WE K'WEN'T ALREADY DONE SO 



SET MOD ERR 
-^0250 ! A 
*04 ; <8*A> 
*062 
<MOD_ERR-HEA0> 

ENDIF 

ENDDO 
<H*8> 1 1 
<DOLOOP-HEAD>&255 
*05 I <8*M> 
-^0302 

<2084$-HEAD> 
'^0301 ! <8*8> 
*OlOO ! <M*8> ! B 

DO 5 

<H*8> I 1 
<DOLOOP-HEAD>B255 

''OIOO I <B*8> I M 

''0305 I <8*B> 

<A*8> ! 6 . 5&255 

''OIOO ! <M*8> i A 



;with A 



; GENERATE LCL 2086 NAME 

;AT LEAST 1 CPU MODULE IS BAD 



;6ENERATE LCL 2085 NAME 
«DOL0OP-HEAD>&*XFF0O>/256 



;EXAMINE REMAINING BITS 
«DOLOOP-HEAD>&'^XFF0O>/256 



L 



ZZ-ENKAB-1.5 .MAIN 
.MAIN, 





1508 


2087$: 








1506 


3765 








150B 


3766 




LDA TEMP BYTE 


3A 


1508 




.8YTE 


*072 


0^18' 


150C 




.WORD 


<TEHP 8YTE-HEAD> 




150E 


3767 




RRC " 


OF 


150E 




.BYTE 


*017 




150F 


3768 




STA TEMP BYTE 


32 


150F 




.8YTE 


^^062 


0418' 


1510 
1512 


3769 


.WORD 


<TEMP_BYTE-HEAD> 




1512 


3770 




IFC 


D2 


1512 




.8YTE 


"0322 


152D' 


1513 
1515 


3771 


.WORD 


<2088$-HEAD> 




1515 


3772 




IF MOD ERR 


3A 


1515 




.8YTE 


*072 


0395' 


1516 




.WORD 


<MOD ERR-HEAD> 


OF 


1518 




.8YTE 


'^017" 


02 


1519 




.BYTE 


*0322 


1522' 


151A 




.WORD 


<2G89I-HEAD> 




151C 


3773 




LXl H,0R.A 


21 


151C 




• BYTE 


<H*8> ! 1 


03'D0' 


151D 




.BYTE 


<0R A-HEAD>&255 , «0R 




151F 


3774 




calC print string R 


CD 


151F 




.BYTE 


^0315 


lOOE' 


1520 




.WORD 


<PRINT STRING R-HEAD> 




1522 


3775 




ENDIF 




1522 


2089$: 








1522 


3776 








1522 


3777 




LHLD TEMP WORD 


2A 


1522 




.BYTE 


^^052 


0A19' 


1523 




.WORD 


<TEMP W0RD-HEAD> 




1525 


3778 




CALL " PRINT STRING R 


CD 


1525 




.BYTE 


*0315 


100E' 


1526 




.WORD 


<PRINT STRING R-HEAD> 




1528 


3779 




SET " MOD ERR 


Af 


1528 




.BYTE 


"0250 : A " 


3C 


1529 




.BYTE 


-^04 ! <8*A> 


32 


152A 




.BYTE 


*062 


0395' 


1528 




,W0RD 


<MOD_ERR"HEAD> 




152D 


'^■SO 








152D 


i781 




ENDIF 




152D 


2088$: 








152D 


3782 








152D 


3783 




MVI B.O 


00 06 


152D 




.BYTE 


<B*8> 1 6 , 0&255 




152F 


3784 




MVI C.7 


07 OE 


152f 




.BYTE 


<C*8> : 6 , 76255 




1531 


378S 




LHID TEMP WORD 


?A 


i531 




.BYTE 


"052 


0419' 


1532 




-WORD 


<TEMP WORD-HEAD> 




1534 


3786 




DAD " B 


09 


1554 




.BYTE 


<B*8> ! 9 




1535 


3787 




SHLD TEMP WORD 


22 


1535 




.BYTE 


*042 


0419' 


1536 




.WORD 


<TEMP WORD"HEAD> 
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;CHECK FOR BIT SET 



/PRINT *0R' If OTHER MODULES 



;HAVE ALREADY BEEN CALLED OU" 



«0R A"HEAD>&''XFFQ0>/256 



.'GENERATE LCL 2089 NAME 
;PRINT OUT MODULE NAME 



;with A 



GENERATE LCL 2088 NAME 
INCREMENT TO POINT TO NEXT 
MODULE name: 



;Z?"ENKAB-1.5 .MAIN. 

I. MAIN. 



21 
00*55' 
35 
C2 
150B' 
CI 
70 



^1 
01 '7E' 

CD 
100E' 



C3 
1616' 



03*02" 

CD 
100E' 



?1 
Oo'CA' 

06 OE 

CD 
1007' 



CD 
1021' 



3A 

005B' 



1538 

1538 

1538 

1539 

1538 

153C 

153D 

153F 

1540 

1541 

15A1 

1541 

15A1 

1541 

1541 

1542 

1544 

1544 

1545 

1547 

1547 

1547 

1548 

154A 

154A 

15'iA 

154A 

154A 

154A 

154A 

154A 

154A 

154A 

1546 

154D 

154D 

154E 

1550 

1550 

1550 

1551 

1553 

1553 

1555 

1555 

1556 

1558 

1558 

1558 

1559 

1558 

1558 

1558 

155C 

155E 

155E 



3788 
5789 
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«DOLOOP-HEAD>&*XFF00>/256 



3790 
3791 

3792 
3793 



3794 



3795 
3796 



3797 
3798 
3799 
3800 
3801 
3802 
3803 
3804 
3805 



3806 



3807 
3808 



3809 
3810 



3811 
3812 



3813 
3814 



3815 





ENDDO 


.BYTE 


<H*8> I 1 


.BYTE 


<DOLOOP-HEAD>&255 


.BYTE 


*05 I <8*M> 


.BYTE 


"^0302 


.WORD 


<2087$-H£AD> 


.BYTE 


*0501 ! <8*B> 


.BYTE 


-^0100 1 <M'<8> 1 B 



2083$: 



.BYTE 
.BYTE 

.BYTE 
.WORf^ 



.BYTE 
.WORD 



ENDIF 



LXI H,6AD A 

<H*8> ! 1 

<BAD A-HEAD>&255 

CALL" 

*0315 

<PRINT STRING R-HEAD> 



.-GENERATE LCL 2085 NAME 
;PRINT -BAD* 



PRINT^STRJNG.R 



«BAD,A-HEAD>&*XFFO0>/256 



JMP MENU 

^^0303 

<MENU"HEAD> 



;WHAT TO DO FROM HERE? 



FULL ERROR 

THJS'ROUTJNE PRINTS OUT THE FULL ERROR REPORT IF THAT OPTION IS DESIRED. 



FULL.ERROR: 

.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 

.BYTE 
.VORD 



.8. ic 
.WORD 



.BYTE 
.WORD 

.BYTE 
.WORD 



LXI H, HEADER A 

<H*8> I 1 

<HEADER A"HEAD>6255 , 

CALL "PRINT STRING R 

^^031 5 

<PRINT STRING R-HtAD> 



LXI H, SECTION NAME 

<H*8> 1 1 

<SECTION NAME-HEAD>&255 

MVI C.SEC LEN 

<C*8> ! 6 , SFC LfcNtC255 

CALL PRINTER 

*0315 

<PRINTER-HEAD> 

CAIL SPACE R 

'^0315 

<SPACE_R-HEAD> 

LOA TEST NUM 

"072 

<TEST NUM-HEAD> 

STA " HEX BUF 

-^062 

<HEX 8UF-HEAD> 



;PRINT HEADER LINE FOf ERROR 
«HEADER A-HEAD>B*XFF00>/256 



;PRINT SECTION NAME LOADED 
«SECTION NAME-HEAD>&'^XFFO0>/256 



;PRINT TEST NUMBER 



iZZ-ENKAB-1.5 .MAIN 

I. MAIN. 
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CO 
0F9A' 

CD 
102V 



3A 
003F' 

32 
0056' 

CD 
0F9A* 

CD 
1021' 



3A 
005F' 
OF 
D2 
1589' 



21 
Oj'80' 

CD 
100E' 

21 
03'B0' 

CD 
100E' 



C3 
15Ar 



21 
OO'AO' 

11 

00'5B' 

CD 
0F73' 

CD 
0F8A' 



1561 

1561 

1562 

1564 

156*; 

1565 

1567 

1567 

1567 

1568 

156A 

156A 

1568 

156D 

156D 

156E 

1570 

1570 

1571 

1575 

1573 

1573 

1574 

1576 

1577 

1578 

157A 

157A 

157A 

1576 

157D 

157D 

157E 

1580 

1580 

1581 

1583 

1583 

1584 

1586 

1586 

1586 

1587 

1589 

1589 

1589 

1589 

158A 

158C 

158C 

158D 

158F 

158F 

1590 

1592 

1592 

1593 



3816 
3817 



3818 
3819 



3820 
3821 
3822 



3823 
3824 



3825 
3826 



3827 
3828 
3829 



3830 
3831 



3832 
3833 



3834 
3835 
3836 



2090$ 



.BYTE 
.WORD 

.BYTE 
■ WORD 



.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 

.WORD 

.BYTE 
.WORD 



■ BYTE 
.WORD 
.BYTE 

.BYTE 
• WORD 



.BYTE 
.BYTE 

.BYTE 

.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.WORD 



.BYTE 
.BYTE 

.8YTE 
.BYTE 

.BYTE 

.WORD 

.BYTE 
.WORD 



Fkhe 1 Frame BIO 

VAX-11 ... , ._ 
i4-JUN-1984 15:49:51 DR80: CBALL,ENKABDENKAB.MAC;3 

PRJNT.HEX_1_R 



(1) 



CALL 

^0315 

<PRINT HEX 1 R-HEAD> 

CALL " SPSCc R 

'^0315 

<SPACE_R-HEAD> 

LDA CON ERR NUM 

^^072 " ■ 

<CON ERR NUM"HtAD> 

STA " PEX BUF 

*062 

<HEX BUF"HEAD> 

CALL" PRINT HEX 1 R 

''0315 " ■ ■ 

<PRINT HEX 1 R"HEAD> 

CALL " SP^CF R 

^^0315 

<SPACE.R-HEAD> 

IF NA EXP REC 

''072 ■ " 

<NA EXP REC-HEAD> 
*017 " 
-^0322 
<2090$-HEAD> 



; ERROR NUMBER LOADED PREVIOUSLY 



; PRINT ERROR NUMBER 



;1F EXPECTED AND RECEIVED DATA 



; ARE NOT APPLICABLE 
;POINT TO ASCII N/A 



LXI H,NA A 

<H*8> ! 1 

<NA A-HEAD>B255 , «NA A"HEAD>S*XFF00>/256 

CAlC PRINT STRING R" ;PRINT UNDER EXPECTED DATA 

*0315 

<PRINT STRING R-HEAD> 

LXI ■ H,NA ^ ;POINT TO ASCII N/A 

<H*8> ! 1 

<NA A-HEAD>&255 , «NA_A-HEAD>&*XFF00>/256 



PRINT^STRING.R 



CALC 

*0315 

<PRINT STRING R-HEAD> 



;PRINT UNDER RECEIVED DATA 



ELSE 

*0303 

<2091$-HEAD> 



;GENERATE LOCAL SYMBOL NAME 
;P0INT TO EXPECTED DATA 
«CON_EXP_DAT-HEAD>&''XFF00>/256 



LXI H.CON EXP DAT 

<H*8> 11 

<C0N EXP DAT-HEAD>&255 

LXI ' D.HEX BUF 

<D*8> ! 1 

<HEX BUF-HEAD>B255 , «HEX BUF-HEAD>8'^XFF00>/256 

CALL" MOVER 4 R 

"0315 

<MOVER 4 R'HEAD> 

CALL ■ Print hex 4 

"0315 " " 

<PRINT HEX 4-HEAD> 



;PR1NT expected DATA 



iZZ-ENKAB-1.5 

Lmain. 



.MAIN 





1S95 


3837 




1595 


3838 


21 


1595 




OO'AF* 


1596 






1598 


3839 


11 


1598 




OO'SB' 


1599 






1598 


38A0 


CD 


1598 




0F73' 


159C 






159E 


38A1 


CD 


159E 




0F8A' 


159F 






15A1 


38A2 




15A1 


38A3 




15A1 






15A1 


38U 




15A1 


38A5 


3A 


15A1 




0060' 


15A2 




OF 


15A4 




02 


15A5 




1581' 


15A6 






15A8 


38^6 




15A8 


38A7 


?1 


15A8 




03 '80' 


15A9 






15A8 


38A8 


CD 


15A8 




100E' 


15AC 






15AE 


38A9 




15AE 


3850 


C3 


15AE 




15BD' 


15AF 
1581 






1581 


3851 


?1 


1581 




00' 58' 


1582 






158^ 


3852 


11 


158^ 




OO'SB' 


1585 






1587 


3853 


CO 


1587 




OF 73' 


1588 






158A 


385-^ 


CD 


158A 




0F8A' 


1588 






1SBD 


3855 




158D 






158D 


38 5 (^. 




158D 


3857 


2) 


158D 




OO'^B' 


158E 






15C0 


3858 


P 


15C0 




OO'SB 


15C1 






15r3 


3859 



2091$: 



2092$: 



2093$: 



.BYTE 
.8YTE 

.BYTE 
.BYTE 

.BYTE 

• WORD 

.8YTE 
.WORD 



.BYTE 
.WORD 
.BYTE 
.8YTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.BYTE 

.BYTE 

.WORD 

.BYTE 

.WORD 



.BYTE 
.BYTE 

.8YTE 
.BYTE 
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I . H^CON REC DAT 

<H«8> : 1 

<CON REC DAT-HEAD>a255 

LXI " D^HEX BUF 

<D*8> : 1 

<HEX BUF-HEAD>&255 

CALL" MOVER 4 R 

*0315 

<M0VER A R-HEAD> 

CALL " Print hex a 

*0315 ' " 
<PRINr HEX 4-HEAD> 



ENDIF 



NA OTHER 



IF 

*072 

<NA OTHER-HEAD> 

*017 

*0522 

<2092$-HEAD> 

LXI H,NA A 

<H*8> : 1 

<NA A-HEAD>6255 



;POINT TO RECEIVED DATA 
«CON.HEC_DAT"HEAD>&*XFF00>/256 

«HEX_BUF-HEAD>S''XFF00>/256 

;PRINT RECEIVED DATA 

; GENERATE LCL 2091 NAME 
;IF OTHER DATA IS NOT 



; APPLICABLE 
;P0INT TO ASCII N/A 



«NA A-HEAD>&*XFF00>/256 



CALL PRINT STRING R 

*0315 

<PRINT,STRING_R-HEAD> 

ELSE 

*O305 

<2093$-HEAD> 



;PRINT UNDER OTHER DATA 



LXI H,CON ADD DAT 

<H*8> I 1 

<CON ADD DAT-HEAD>6255 

LXI " D^HEX BUF 

<D*8> ! 1 

<HEX 8UF-HEAD>6255 

CALL" MOVER A R 

*0515 

<MOVER A R"HEAD> 

CALL ■ PRINT HEX ^ 

*0315 " " 

<PRINT HEX A-HEAD> 

ENDIF " " 



; GENERATE LOCAL SYMBOL NAME 
;POINT TO OTHER DATA 



«CON_ADD_DAT-HEAD>&^XFF00>/256 
«HEX_BUF-HEAD>»'*XFF00>/256 

;PR1NT OTHER DATA 

.-GENERATE LCL 2093 NAME 
; POINT TO ERROR MASK 
«CON MSK DAT-HEAO>&''XFF0O>/256 



LXI H,CON MSK DAT 

<H*8> ! 1 

<CON MSK DAT-HEAD>&255 

I XI " ChEX BUF 

<D*8> ! 1 

<HEX BUF •HEAD>&255 , «HEX BUF-HEAD>&''XFF00>/256 

CALL" MOVER 4 R 



ZZ-EN<AB-1.S .MAIN. 

.MAIN. 



CD 


15C5 




0F73* 


15CA 






15C6 


3860 


CD 


15C6 




0F8A' 


15C7 






15C9 


3861 




15C9 


3862 


5A 


15C9 • 




0255' 


15CA 




OF 


15CC 




DA 


15CD 




1608' 


15CE 






15D0 


3863 




15D0 


3864 


A6 3E 


15D0 






15D2 


3865 


CD 


15D2 




1167' 


15D3 






1505 


3860 


5A 


15D5 




OOAC 


15D6 






15D8 


3867 


I?- 


15D8 




0418' 


15D9 






15DB 


3868 


2^ 


15D8 




OI'^B' 


15DC 






15DE 


3869 


22 


15DE 




0419' 


15DF 






15E1 


3870 




15E1 


3871 


?1 


15E1 




O0'55' 


15E2 




46 


15E4 




C5 


15E5 




08 5E 


15E6 




77 


15E8 
15E9 






15E9 


3872 




15E9 


3873 


If^ 


15E9 




0418' 


15EA 






15EC 


3874 


OF 


15EC 






15ED 


3875 


12 


15ED 




0418' 


ISEE 






15F0 


3876 




15F0 


3877 


D^ 


15rO 




15F9" 


ISFl 






15F5 


3878 


CD 


15F3 




0F7E' 


15F4 






15F6 


3879 


CD 


15F6 





2095$: 



.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 



.BYTE 

.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



.BYTE 
.WORD 

.BYTE 

.BYTE 
.WORD 



.BYTE 

.WORD 

.BYTE 
.WORD 

.BYTE 



D 10 
14"JUN-1984 Fiche 1 Frame DIO Sequence 120 

14-JUN-1984 16:08:17 V'AX-11 Macro V03-0T Page lU 

14-JUN-1984 15:49:51 DRB0:CBALL.ENKAB3£NKAB.MAC;3 (1) 



*0315 

<MOVER 4 

CALL " 

*0315 " " 

<PRINT HEX 4-HEAD> 



R-HEAD> 
PRINT HEX 4 



;PRINT ERROR MASK 



IFN CONSOLE TEST 

^072 

<C0NS0LE TtST-HEAD> 

'^017 

^^0332 

<2094$-HEAD> 



A,WCS MOD DAT 

6 . WlS MDD DATa255 

READ LS R 



MVl 

<A*8> 

CALL 

^0315 

<READ LS R-HEAD> 

LDA ■ 15ATA3 

*072 

<DATA3"HEAD> 

STA TEMP BYTE 

*062 

<TEMP 8YTE-HEAD> 

LXl " H,PRT MOD A 

<H*8> ! 1 

<PRT MOD A-HEAD>&255 

SHLD' Temp word 

*042 
<TEMP_WORD-HEAD> 

DO 8 
<H*8> : 1 
<DOLO0P-HEAD>&255 



;PRINT MODULE NUMBER 
;READ FROM LS 



«PRT MOD A-HEAD>8*XFF00>/256 



;E1GHT POSS. MODULE NAMES 



"0100 
*0305 
<A*8> 
'^0100 



M 



<B*8> 
<8*8> 
6 , 86255 
<M*8> ! A 



TEMP BYTE 



«DOL0OP"HEAD>&*XFF00>/256 



LDA 

*072 

<TEMP 8YTE-HEAD> 

RRC ~ 

"017 

STA TEMP BYTE 

"062 

<TEMP.8YTE-HEAD> 

IFC 
"0322 

<2096$HEAD> 

CALL PRINT FLG 

"0515 

<PR1NT FLG-HEAD> 

CALL " SPACE R 

"0315 



Z2-ENKAB-1.5 .MAIN 

.MAIN. 



1021' 


15F7 






15F9 


3880 




15F9 






15F9 


3881 




15F9 


3832 


CD 


15F9 




12A5' 


15FA 






15FC 


3883 




15FC 


388A 


21 


15FC 




00*55' 


15FD 




35 


15FF 




C2 


1600 




15E9' 


1601 




CI 


1603 




70 


160A 






1605 


3885 




1605 


3886 


C3 


1605 




1610* 


1606 
1608 






1608 


3887 


21 


1608 




00*A6' 


1609 






160B 


3888 


05 OE 


1608 






1600 


3889 


CD 


160D 




1007' 


160E 






1610 


3890 




1610 






1610 


3891 




1610 


3892 


CD 


1610 




101A' 


1611 






1613 


3893 




1613 


389A 


C3 


1613 




1616' 


16U 






1616 


3895 




1616 


3896 




1616 


3897 




1616 


3898 




1616 


3899 




1616 


3900 




1616 


3901 




1616 


3902 




1616 


3903 




1616 


3904 




1616 


3905 


CD 


1616 




101A' 


1617 






1619 


3906 




1619 


3907 


21 


1619 




03*55 


161A 
161C 


3908 



2096$: 



2094$; 



2097$: 



.WORD 



• 8YTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 



.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 

.BYTE 
.WORD 



.BYTE 
.WORD 



.BYTE 
.WORD 
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115 : 
(1) i 



<SPACE R-HEAD> 
ENDJF " 



CALL INC TEMPW 5 

*0315 

<INC_TEMPW_5-HEAD> 

ENDOO 
<H*8> ! 1 

<D0L00P"HEAD>B255 , 
*05 1 <8*'M> 
*O302 

<2095$-HEAD> 
*0301 I <8*B> 
*0100 ! <M*8> ! B 

ELSE 

^0303 

<2097$-HeAD> 



; GENERATE LCL 2096 NAME 
; INCREMENT TO NEXT FLAG 



«DOLOOP-HEAD>&'^XFF0O>/256 



;IF CONSOLE TEST 

.'GENERATE LOCAL SYMBOL NAME 



LXI H,CON MOD DAT 

<H*8> ! 1 

<CON MOD DAT-HEAD>&255 , «CON MOD DAT-HEAD>&'^XFF00>/256 

Mvi ■ r,5 



<C*8> I 6 , 5&255 
CALL PRINTER 

^0315 

<PRINTER-HEAD> 
ENDIF 



CALL CRLF R 

^0315 

<CRLF_R-HEAD> 

JMP MENU 

*O303 

<MENIJ-HEAD> 



;PRINT MODULE # 



;GENERATE LCL 2097 NAME 



*w**<(KHn*H<l*********<r***************i ***************************************** 

MENU 

THIS ROUTINE PRINTS THE MENU PROMPT AFTER AN ERROR OR CONTROL.C. IT 

THEN TAKES THE APPROPRIATE ACTION. 

****************************************************************************** 
MENU: 



CALL CRLF R 
.BYTE *0315 
.WORD <CRLF R-HEAD> 



;PRINT OPTIONS 



LXI H,MENU A 
.BYTE <H*8> ! 1 
.BYTE <MENU A-MEAD>&255 , «MENU A-HEAD>&*XFF00>/256 

CALL " PRINT STRINGER 



ZZ-ENKAB-1,5 
.MAIN. 



.MAIN. 
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CD 


161C 




100E' 


161D 






1o1F 


3909 




161F 


3910 


CD 


161F 




102E' 


1620 






1622 


3911 




1622 


3912 


01 OB 


1622 






1624 


3913 


21 


1624 




OB'DI' 


1625 






1627 


3914 


EB 


1627 






1628 


3915 




1628 


3916 


21 


1628 




Give' 


1629 






1628 


3917 


CD 


1628 




0F55' 


162C 






162E 


3918 




162E 


3919 


C2 


162E 




1640' 


162F 






1631 


3920 


CD 


1631 




101A' 


1632 






1634 


3921 


21 


1634 




02'62' 


1635 






1637 


3922 


CD 


1637 




100E' 


1638 






163A 


3923 


CD 


165A 




101A' 


163B 






163D 


3924 


C5 


163D 




098A* 


163E 






1640 


3925 




1640 






1640 


3926 




1640 


3927 


21 


1640 




or7c' 


1641 






1643 


3928 


CD 


1643 




OF 55' 


1644 






1646 


3929 




1646 


3930 


(2 


1646 




164C' 


1647 






1649 


3931 


C5 


1649 




1CD2' 


164A 






164C 


3932 



2098$: 



.8YTE 
.WORD 



.8YTE 
.WORD 



.8YTE 

.BYTE 
.BYTE 

.8YTE 



.8YTE 
.BYTE 

.BYTE 
■ WORD 



.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 
.BYTE 

.8YTE 
.WORD 

.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 
.WORD 



*0315 
<PRINT,STRIN6,R-HEAD> 

CALL INPUT LINE 

*0315 

<INPUT LJNE-HEAD> 



;6£T DESIRED OPTION 



MVI CJ 

<C*8> ! 6 . 1&255 

LXI H.TTBUF 

<H*8> I 1 

<TTBUF-HEAD>6255 , 
XCHG 
^^0353 

LXI H.ASCILI 

<H*8> I 1 

<ASCII 1-HEAD>&255 

CALL " COMPARE R 

*0315 

<COMPARE R-HEAD> 



;POINT TO USER RESPONSE 
«TTBUF"HEAD>&*XFF00>/256 

;WAS A 1 TYPED? 
, «ASCII_1-HEAD>&''XFF00>/256 

;IF 1 WAS TYPED 



IFZ 

*0302 

<2098$-HEAD> 

CALL CRLF^R 

*0315 

<CRLF R-HEAD> 

LXI ~ H,END.A 

<H*8> I 1 

<END A-HEAD>£255 , «END A-HEAD>&''XFF0Q>/256 

CALL" PRINT STRING R 

-^031 5 

<PRINT STRING R-HEAD> 

CALL ' CRLF R 

'^0315 

<CRLF R-HEAD> 

JMP " STNDRD CON COM 

*O303 

<STNDRD CON COM-HEAD> 

ENDIF ■" " 



;THEN GO BACK TO CONSOLE 



LXI H,ASCIL2 

<H*8> I 1 

<ASCI1 2-HEAD>&255 

CALL " COMPARE R 

*0315 

<C0HPARE_R-H£AD> 

IFZ 

"0302 

<2099$-HEAD> 

JMP START UP 

^^0303 

<START UP-HEAD> 

ENDIF " 



;GENERATE LCL 2098 NAME 
«ASCIL2-HEAD>&*XFF00>/256 

;1F 2 WAS TYPED 
;THEN START AUTO MODE 



ZZ-ENKAB-1.5 

.MAIN. 



,MAIN. 



21 
0V7D' 

CD 
OF55' 



C2 
1658* 

C3 
15AA' 



C3 
1616' 



CD 
101A' 

21 
05'C8* 

CD 

100E* 

21 
05'9A' 

CD 
100E' 



CD 
102E' 



01 OE 
08'Dr 



16^C 

16AC 

164C 

16AC 

16AD 

164F 

16AF 

1650 

1652 

1652 

1652 

1653 

1655 

1655 

1656 

1658 

1658 

1658 

1658 

1658 

1659 

165B 

1656 

165B 

1658 

1658 

165B 

165B 

1658 

1658 

1658 

1658 

1658 

165C 

165E 

165E 

165f 

1661 

1661 

1662 

1664 

166A 

1665 

1667 

1667 

1668 

166A 

166A 

166A 

166B 

166D 

166D 

166D 

166F 

166F 

1670 

1672 
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(1) 



3933 
3934 



3935 



3936 
3937 



3938 



3939 

3940 
3941 



3942 
3943 
3944 
3945 
3946 
3947 
3948 
3949 
3950 
3951 
3952 



3953 
3954 
3955 
3956 



3957 
3958 



3959 
3960 

3961 
3962 



2099$: 



2100$: 



LXl H,ASCJI 3 

.BYTE <H*8> : 1 
.BYTE <ASCIi 3-HEAD>&255 

CALL COMPARE R 

.BYTE *0315 
.WORD <COMPARE.R-HEAD> 

IF2 
.BYTE *O302 
.WORD <2100$-HEAD> 

JMP FULL ERROR 

.BYTE ^^0303 
.WORD <FULL ERROR-HtAD> 

ENDIF" 



JMP MENU 
.BYTE *0303 
.WORD <MENU-HEAD> 



; GENERATE LCL 2099 NAME 
«ASC]J_3-HEAD>&*XFF00>/256 

;JF 3 WAS TYPED 

;PRINT FULL ERROR REPORT 

;GENERATE LCL 2100 NAME 



***************n****n*i^*m*<******^**************************** **************** 

PACK WARNING 

THIS'ROUTINE PRINTS THE IMPROPER RL02 SETUP WARNING MESSAGE AS DISCOVERED 

BY THE IDC PART II DIAGNOSTIC. 

«ik*ft****<^*4**********************^******************************************** 

CRLF R 



PACK WARNING: 
.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 

• BYTE 
.BYTE 

.BYTE 
.WORD 



.BYfc 
.WORD 



;PRINT WARNING MESSAGE 



CALL 

*0315 

<CRLF R-HEAD> 

LXl " H,WARN MESB 

<H*8> ! 1 

<WARN MESB-HEAD>&255 , «WARN MESB-HEAD>6*XFF00>/256 

CALL " PRINT STRING R 

*031S 

<PRINT STRING R-HEAD> 

LXl " H,WARR MESA 

<H*8> ! 1 

<WARN MESA-HEAD>B255 , 

CALL " PRJNT.STRJNG R 

"0315 

<PRINT STRING R-HEAD> 



CALL 
*0315 



INPUT.LINE 
<INPUT.LINE-HEAD> 



;PRINT WARNING MESSAGE 
«WARN.MESA-HEAD>&*XFF00>/256 

;WAIT FOR RESPONSE 



.BYTE 

.BYTE 
.BYTE 



mi CJ 
<C*8> I 6 , U255 
LXl HJTBUF 

<H*8> ! 1 
<TTBUF-HnAD>B255 
XCHG 



«TTBUF-HEAD>&'^XFF00>/256 



ZZ-ENKAB-1.5 
-MAIN, 



.MAIN. 



E8 


1672 






1673 


3963 




1673 


3964 


21 


1673 




01*78' 


167^ 






1676 


5965 


CD 


1676 




OF55* 


1677 






1679 


3966 




1679 


5967 


C2 


1679 




16A7* 


167A 






167C 


3968 


CD 


167C 




101A' 


167D 






167F 


3969 


21 


167F 




OA'BA* 


1680 






1682 


3970 


CD 


1682 




100E' 


1683 






1685 


3971 




1685 


3972 


CD 


1685 




102E* 


1686 






1688 


3973 




1688 


3974 


AF 


1688 




32 


1689 




03F0* 


168A 






168C 


3975 


AF 


168C 




32 


USD 




03ED* 


168E 






1690 


3976 




1690 


3977 


21 


1690 




00*55' 


1691 




A6 


1693 




C5 


1694 




3C 3E 


1695 




11 


1697 
1698 






1698 


3978 


CD 


1698 




1021' 


1699 






1698 


3979 


21 


1698 




00*55' 


169C 




35 


169E 




C2 


169F 




1698' 


16A0 




CI 


16A^ 




70 


UA3 






16A4 


3980 




16A4 


3981 


C3 


16A4 





2102$: 



.BYTE 



.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 
.BYTE 

■ BYTE 
.WORD 



.BYTE 
.WORD 



.BYTE 
.BYTE 
.WORD 

.BYTE 
.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



.BYTE 
.WORD 

.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 



.BYTE 
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^^0353 



118 
(1) 



LXl H, ASCII. 1 

<H*8> ! 1 

<ASCII 1-HEAD>&255 

CALL " COMPARE R 

*0315 

<C0MPARE R-HEAD> 



«ASCII,1-HEAD>6*XFF00>/256 



IFZ 

*0302 

<2101$-HEAD> 

CALL CRLF k 

*0315 

<CRLF R-HEAD> 

LXl " H.WARN MESS 

<H*8> ! 1 

<WARN MESS-HEAD>6255 , 

CALL PRINT STRING R 

*0315 

<PRINT^STRJNG_R-HEAD> 

CALL INPUT^LINE 

*0315 

<INPUT LJNE-HEAD> 



;PR1NT WARNING MESSAGE 
«WARN.MESS-H£AD>&*XFF00>/256 



PRINT START 
A 



CLEAR 

^0250 ! 

^^062 

<PRINT START-HEAD> 

CLEAR " PRINT PASS 

-^0250 ! A 

*062 

<PRINT_PASS-HEAD> 

DO 60 
<H*8> ! 1 
<D0L00P-HEAD>&255 

<B*8> ! M 

<8*B> 

6 . 60B255 

<M*8> ! A 



;with A 



;w1th A 



;DON*T PRINT START OR PASSED 



MESSAGES 



*0100 
*0305 
<A*8> 
*0100 



;SET UP CURSER TO PRINT 
«DOL0OP-HEAD>&*XFF00>/256 



SPACE R 



CALL 

-^0315 

<SPACE R-HEAD> 

ENDDO " 

<H*8> I 1 

<DOLOOP-HEAD>R255 

*05 ! <8*M> 

^^0302 

<2102$-HEAD> 

*0301 1 <8*B> 

'^0100 ! <M*8> ! B 



PASSED OR FAILED MESSAGE 



«D0L00P-HEAD>S*XFF00>/256 



JMP 
'^0303 



PARSER 



;TRY TEST AGAIN 



ZZ-ENKAB-1.5 
.MAIN. 



.l^iAlN, 



IDAE' 



21 
OIVC 

CD 
OF 55* 



C2 
16C6' 

AF 
32 
03ED' 

AF 
32 
03D5* 

21 
04'26* 

34 

AF 
3C 
32 
0056' 

AF 
32 
03ED' 

C9 



C9 



CD 
1165* 



16A5 

16A7 

16A7 

16A7 

16A7 

16A7 

16A8 

16AA 

16AA 

16A8 

16AD 

16AD 

16A0 

16AE 

16B0 

1680 

16B1 

16B2 

168^ 

168^ 

16B5 

1686 

1688 

16B8 

1689 

1688 

16BB 

16BC 

168C 

1680 

16BE 

168F 

16C1 

16C1 

16C2 

16C3 

16C5 

16C5 

16C6 

16C6 

16C6 

16C6 

16C6 

16C7 

16C7 

16C7 

16C7 

16C7 

16C7 

16C7 

16C7 

16C7 

16C7 

16C7 

16C8 

16CA 

16rA 



3982 

3983 
39SA 



3985 



3986 
3987 



3988 
3989 

3990 

3991 
3992 

3993 

399'!i 

3995 

3996 
3997 



2101$: 



2103$: 
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.WORD <PARSER-HEAD> 
ENDIF 



LXI H, ASCII 2 
.8YTE <H*8> ! 1 
.BYTE <ASCII 2-HEAD>&255 , 

CALL COMPARE R 
.BYTE *0315 
.WORD <COHPARE_R-HEAD> 

IF2 
.BYTE *O302 
.WORD <2103$-HEAD> 

CLEAR PRINT PASS 
.BYTE "O250 ! A 
.BYTE *062 
.WORD <PRINT PASS-HEAD> 

CLEAR " PACK ERROR 
.BYTE '0250 I A 
.8YTE *062 
.WORD <PACK ERROR-HEAD> 

LXI " H,TEST NUM 
.BYTE <H*8> : 1 
.8YTE <TEST NUM-HEAD>&255 

INR *■ M 
■ BYTE -^04 ! <8*M> 

SET EOS FLG 
.BYTE *O250 ! A 
.BYTE *04 ! <8*A> 
.8YTE *062 
.WORD <EOS FL6-HEAD> 

CLEAR PRINT PASS 
.BYTE *O250 ! A 
.BYTE ^062 
.WORD <PRINT PASS-HEAD> 

RET 
.BYTE ^0311 

ENDIF 



;6ENERATE LCL 2101 NAME 



«ASCII 2-HEAD>8*XFF00>/256 



;wi'th A 



;with A 



MESSAGES 



«TEST NUM-HEAD>B''XFFO0>/256 
.'INCREMENT TEST NUM 



;with A 



;with A 



MESSAGES 



;GENERATE LCL 2103 NAME 



RET 
^0311 



.8YTE 



3998 
3999 
^000 
4001 
4002 
^^003 
/.004 
^005 
^006 

4007 SET PAR INT: 
" ".BYTE 
.WORD 
-^008 
^009 



SET PAR JNT 

THIS ROOTINE sets A PARITY ERROR IN WCS ON REQUEST FROM THE CPU DIAG. 

THE ADDRESS TO SET THE PARITY ERROR ON IS IN LS 7 

CALL READ LS 7 ;READ ADDRESS TO SET BAD PARITY 

^^0315 " " 
<READ LS 7-HEAD> 



LXI 



DJNPUT^NUM 



.•DESTINATION 



2Z-ENKAB-1,5 
.MAIN. 



,MA1N. 
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(1) 



11 
06'76' 

CD 
OF 70* 



AF 
3C 
32 
006E' 

CO 
0C1D' 



C9 



CD 

1165* 



11 
06'76' 

CD 
OF 70' 



AF 
32 
02E2' 

CD 
08B8' 



C9 



16CA 

16CB 

16CD 

16CD 

16Cc 

16D0 

16D0 

16D0 

16D0 

16D1 

16D2 

16D3 

16D5 

16D5 

16D6 

1608 

16D8 

16D8 

16D9 

1609 

1609 

1609 

16D9 

1609 

1609 

1609 

16D9 

1609 

1609 

1609 

1609 

1609 

160A 

160C 

160C 

16DC 

1600 

16DF 

16DF 

16E0 

16E2 

16E2 

16E2 

16E2 

16E3 

16E4 

16E6 

16E6 

16E7 

16E9 

16E9 

16E9 

16EA 

16EA 

16EA 

16EA 

16FA 



A010 



/;oii 

A012 
4013 



40U 



A015 
A016 

4017 
4018 
4019 
4020 
4021 
4022 
4023 
4024 
4025 
4026 
4027 
4028 
4029 



4050 
4031 



4032 



4033 
4034 
4035 



4036 



4037 
4038 

4059 
4040 
4041 
4042 
4043 



«JNPUT NUM-HEAD>&*XFF00>/256 

" ;MOVE 4 BYTES OF DATA FROM 

; OATAO 

; CHANGE PARITY TO BAD 
;wUh A 



.'WRITE WCS WITH BAO PARITY 



.BYTE <D*8> I 1 
•BYTE <INPUT NUM-HEAD>&255 , 
CALL " MOV FROM OATAO 
.BYTE ''0315 
.WORD <MOV FROM DATAO-HEAD> 



SlT UICS BAO PARITY 
.BYTE *O250 I A " " 
.BYTE *04 ! <8*A> 
.BYTE *062 
.WORD <WCS BAO PARITY-HEAD> 

CALL" TMAmE WCS 
.BYTE *0315 
.WORD <CHAN6E.WCS"HtA0> 

RET 
.BYTE ''0311 



CLEAR PAR INT 

THIS Routine ci cars a parity error in wcs on request from the cpu diag, 

THIS ALSO ENABLES HALT ON PARITY ERROR 

THE AOORESS TO CLEAR THE PARITY ERROR ON IS IN LS 7 

**it**************t ********* **************'*;******* ***************************** 



CLEAR.PAfi.INT 

.BYTE 
.WORO 



CALL READ_LS.7 

*0315 

<READ LS 7-HEA0> 



-BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 
.WORO 

.BYTE 
.WORD 



.BYTE 



;READ ADDRESS TO SET GOOD PARITY 



/DESTINATION 



LXI OJNPUT NUM 

<D*8> 1 1 

<INPUT NUM-HEAD>&255 , «INPUT NUH-HEAD>&*XFF00>/256 

CALL " MOV FROM OATAO ;MOVE 4 BYTES OF DATA FROM 

*0515 



<MOV.FROM^DATA0-HEA0> 



CLEAR ERROR 

^0250 I A 

*062 

<ERROR-HEAD> 

CALL INT CLEAR PAR 

^031 5 

<INT.CLEAR_PAR-HEAD> 

RET 
"0311 



OATAO 



with A 



;SET THE PARITY GOOD 



****************************************************************************** 



PRINT^SINGLE 
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16EA 40AA 

16EA A045 

16EA A0A6 

16EA A0A7 

16EA 4048 

16EA 4049 



THIS ROUTINES COMPARES THE NUMBER OF SINGLE BIT ERRORS IN A 256 K BLOCK 
OF MEMORY WITH THE PREDETERMINED MAXIMUM. IT WILL REPORT A BAD MEMORY 
IF THE MAXIMUM IS MET OR EXCEEDED 

****(kii,***H********************************«**«**«)lr«r************* ************** 



16EA 4050 PRINT SINGLE: CALL READ.LS.7 ;READ DATA 

CD 16EA " .BYTE *0315 

1165' 16EB .WORD <READ LS 7"HEAD> 

16ED 4051 

16ED 4052 IFGT DATAl ,MAX S8E,3 ;IF SINGLE BIT ERRORS FOUND ARE 

21 16ED .BYTE <H*8> ! 1 ~ 

OO'AA* 16EE .BYTE <DATA1-HEAD>&255 , «DATA1-HEAD>8*XFF00>/256 

11 16F0 .BYTE <D*8> ! 1 

03'4A' 16F1 .BYTE <MAX SB£-HEAD^£255 , «MAX.SBE-HEAD>&'^XFF0O>/256 

03 OE 16F3 .BYTE <C*8> ! 6 , 3&255 

CD 16F5 .BYTE *0315 

OOCF' 16F6 .WORD <COMPARE"'HEAD> 

F2 16F8 .BYTE *0362 

1722' 16F9 .WORD <2104$-HEAD> 

16Fe 4053 LXI H,FAIL A ; GREATER THAN TOLERATED 

21 16F8 .BYTE <H*8> 11" ; 

02'EF' 16FC .BYTE <FAIL A-HEAD>%255 , «FAIL A-HEAD>&*XFF00>/256 

16FE 4054 CALL " PRINT STRING R ;PRINT FAILURE | 

CD 16FE .BYTE *0315 " ' ! 

100E' 16FF .WORD <PRINT STRING R-HEAD> 

1701 4055 CALL CRLF R 

CD 1701 .BYTE *0315 

101A* 1702 .WORD s'CRLF R"HEAD> 

1704 4056 LXI " H, ABORT A ;PRINT ABORT MESSAGE i 

21 1704 .BYTE <H*8> ! 1 " i 

01*64* 1705 .BYTE <ABORT A-HEAD>B255 , «AB0RT A-HEAD>S'^XFF0O>/256 

1707 4057 CALL " PRINT STRING R i 

CD 1707 .BYTE *0315 " ! 

100E' 1708 .WORD <PRINT STRING R-HEAD> 

170A 4058 LXI " H, MEMORY A ;PRINT MEMORY BAD | 

21 170A .BYTE <H*8> ! 1 ' . .. -^. 

03'4D' 1708 .BYTE ''MEMORY A-HEAD>6255 , «MEMORY A-HEAD>&*XFFO0>/256 

170D 4059 CALL "PRINT STRING R 

CO 170D .BYTE *0315 

100E' 170E .WORD <PR1NT STRING R-HEAD> 

1710 4060 LXI " H,BAD A 

21 1710 .BYTE <H*8> ! 1 

01'7E' 1711 ,8YTE <BAD A-hEAD>a255 , «8AD A"HEAD>&*XFr0O>/256 

1713 4061 CALL" PRINT STRING R 

CD 1713 .BYTE ^0315 

100E' 1714 .WORD <PRINT STRING R-HEAO> 

1716 4062 LXI " H,tND"A ;PRINT END MESSAGE 

21 1716 .BYTE <H*8> ! 1 

02*62* 1717 .BYTE <END A-HEAD>&25S , «END,A-HEAD>6*XFF00>/256 

1719 4063 CALL" PRINT STRING.R 

CO 1719 .BYTE '^0515 

100E' 171A .WORD <PRlNr STRING R-HEAD> 

17U 4064 CALL " CRlF R 

CO 17U .BYTE *0315 

101A* 171D .WORD <:CRLF,R-HEAD> 

171F A065 JMP STNDRD CON COM 



ZZ-ENKAB-1.5 
.MAIN. 



.MAIN. 



C3 
098A* 



C9 



CD 
1165' 



3A 
OOAC* 
OF 
02 

^72E' 



C9 



CD 
101A' 

2^ 

0?'FE' 

CD 
100E' 

21 
03'96' 

CD 
100E' 



AF 
52 
03FD* 



C9 



171F 

1720 

1722 

1722 

1722 

1722 

1722 

1723 

1723 

1723 

1723 

1723 

1723 

1723 

1723 

1723 

1723 

1723 

1724 

1726 

1726 

1726 

1727 

1729 

172A 

172B 

172D 

172D 

172E 

172E 

172E 

172E 

172E 

172F 

1731 

1731 

1732 

173A 

173-i 

1735 

1737 

1737 

1738 

173A 

173A 

173B 

173D 

173D 

173D 

173E 

173F 

1741 

1741 

1741 

1742 

1742 

1742 
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122 
(1) 



4066 

4067 
4068 

4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 



4079 
4080 



.BYTE 
.WORD 



2104$: 



^^0303 

<STNDRD CON COM-HEAD> 

ENDIF " 



RET 
''0311 



; GENERATE LCL 2104 NAME 



.BYTE 
PRINT MOD PRES 

THIS Routine prints whether the micro diagnositjc finds the fpa, use, idc 

OR R80 

****4**w***************************A******** ********************************** 



4081 

4082 

4083 
4084 

4085 

4086 

4087 

4088 



4089 
4090 



4091 
4092 

4095 
4094 
4095 



PRINT.MOD PRES: 
,5yte 
.WORD 



.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 



2105$: 



.BYTE 



.BYTE 

.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 

.WORD 



.BYTE 
.BYTE 

.WORD 



.BYTE 
PRINT MOD PRES. 



CALL READ^LS^7 

^0315 

<READ,LS_7"HEAD> 

IF DATA3 

-^072 

<DATA3-HEAD> 

*017 

^0322 

<2105$-HEAD> 

RET 

*0311 

ENDIF 



CRLF R 



;LS 7 CONTAINS 1 FOR MOD PRES 



; AND FOR NOT PRESENT 
;IF MODULE iS PRESENT 



;GENERATE LCL 2105 NAME 



;PRINT FPA NOT PRESENT 



CALL 

^0315 

<CRLF R"HbAD> 

LXI " H,FPA A 

<H*8> I 1 

<FPA A-HEAD>£255 , «FPA A-HEAD>&*XFF00>/256 

CALL" PRINT STRING R 

^^031 5 

<PRINT STRING R-HEAD> 

LXI " H,M0D"N0T PRES A 

<H*8> I 1 

<MOD NOT PRES A"HEAD>£255 

CALL" PRINT STRING R 

*0315 

<PRINT STRING R-HEAD> 



;POINT TO MODULE NOT PRESENT 
«M0D,N0T,PRES.A"HEAD>a'^XFF00>/256 



PRINT PASS 
A 



CLEAR 

^0250 I 

^062 

<PRINT^PASS-HEAD> 

RET 
*0311 



;wUh A 



;D0 NOT PRINT 'PASS' 



IDC: 
CALL 



READ LS 7 



;LS 7 CONTAINS 1 FOR MOD PRES 



ZZ-EMKAB-1.5 .MAIN. 

.MAIN. 



CD 
1165* 



3A 
OOAC 
OF 
02 
17AD' 

C9 



21 
07*66* 

22 
03A5' 



21 
07*ED' 

?2 
03BA' 



21 
08*20' 

22 



C9 



AF D3 



3A 
0080' 

E6 

0? 

CA 
176C' 



17^2 
17A3 
1745 
1745 
1745 
1746 
17A8 
1749 
174A 
174C 
174C 
174D 
174D 
174D 
174D 
174D 
174E 
1750 
1750 
1751 
1753 
1753 
1753 
1754 
1756 
1756 
1757 

1759 

1759 

1759 

175A 

175C 

175C 

175D 

175F 

175F 

175F 

1760 

1760 

1760 

1760 

1760 

1760 

1760 

1760 

1760 

1760 

1760 

1760 

1762 

1762 

1762 

1763 

1765 

1766 

1767 

1768 



4096 
4097 



4098 

4099 

4100 
4101 

4102 



4103 
4104 



4105 



4106 
4107 



4108 



4109 

4110 

4111 
4112 
4113 
4114 
4115 
4116 
4117 

4118 
4119 
4120 
4121 

412? 
4123 



2106$: 





M 10 




14-JUN-1984 Fi 




14-JUN-1984 1 




14-JUN-1984 1 


.BYTE 


'^0315 


.WORD 


<READ_LS.7-HEAD> 




IF DATA3 


.BYTE 


*072 


.WORD 


<DATA3-HEAD> 


.BYTE 


^017 


.BYTE 


^^0322 


■ WORD 


<2106$-HEAD> 




RET 


.BYTE 


*0311 




ENDIF 




LXI H, RETURN I 


.BYTE 


<H*8> ! 1 


.BYTE 


<RETURN I-HEAD>&255 , 




SHLD INSTR PNT 


.BYTE 


*042 


.WORD 


<INSTR.PNT-HEAD> 




LXI H, RETURN N 


.BYTE 


<H*8> ! 1 


.BYTE 


<RETURN N-HEAD>&255 , 




SHLD "NAME PNT 


.BYTE 


*042 


.WORD 


<NAME_PNT-HEAD> 




LXI H, RETURN T 


.BYTE 


<H*8> I 1 


.BYTE 


<RETURN T-HEAD>&255 , 




SHLD "TIME PNT 


.BYTE 


*042 


.WORD 


<T1ME.PNT"HEAD> 




RET 


.BYTE 


^0311 
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; AND FOR NOT PRESENT 
;IF MODULE IS PRESENT 



123 
(1) 



/GENERATE LCL 2106 NAME 
;N0 IDC RELOAD CONSOLE 
«RETURN_I-HEAD>&*XFF00>/256 

;THEN PRINT 

«RETURN N-HEAD>£*XFF00>/256 
" ;CPU PART 3 

;AND 

«RETURN T-HEAD>6*XFF00>/256 
" ;SET TIME 



SET SIGNALS 

THIS ROUTINE SETS UP THE SIGNALS AS THEY ARE DESCRIBED IN THE LS 

COMMAND AND STATUS WORD BITS 



SET SIGNALS: 

.BYTE 



.BYTE 
.WORD 
.BYTE 
.BYTE 
.BYTE 
.WORD 



OUT CLRHLT 
^0323 , CLRHLT&255 

IFMBI COMMAND 1,C0NHLT 

*072 

<C0MMAND1-HEAD> 

"0346 

CONHLT 

*0312 

<2107$"HEAD> 



; CLEAR CCiMSOLE HALT 
/register A 

;BIT 17 



|ZZ-ENkAB"1.5 
L^1A1^1. 



.MAIN. 



AE D3 



AD D3 



5A 

OOBO' 
E6 
OA 
CA 

1778' 

AC D3 



A5 D3 



3A 

0080* 
E6 
08 
CA 

178A' 

A4 D3 



A8 D3 



3A 

F6 
10 
CA 

1790' 
AA C3 



Af 
32 
0^05' 



176A 

176A 

176C 

J76C 

1/6C 

176C 

176C 

176E 

176E 

176E 

176F 

1771 

1772 

1773 

177^ 

1776 

1776 

1778 

1778 

1778 

1778 

1778 

177A 

177A 

177A 

1778 

ur'D 

1/7E 

177F 
1780 
1782 
1782 
1784 
1784 
1784 
1784 
1784 
17% 
17d6 
1786 
178/' 
1789 
173A 
1786 
178C 
1 78f. 
173ti 
1790 
1790 
•790 
790 
;790 
1791 
1792 
1794 
1794 
1794 



4124 

4125 

4126 
4127 

4128 
4129 



2107$ 



4130 

4131 

4132 
4133 

4! 34 
4135 



2108$ 



4136 
4137 

4138 
4139 

4140 
4141 



2109$: 



4142 

414? 

4144 
4145 



4146 
4U7 
4t48 



2110$: 
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OUT SETHLT 


;SET CONSOLE HALT 


.8YTE 


0323 , SETHLT&255 
ENDIF 


; register A 

.'GENERATE LCL 2107 NAM 




OUT CLRPFI 


;CLEAR POWER FAIL INIT 


.8YTE 


*0323 , CLRPFI&255 


; register A 




IFMBI COMMAND 1,PWRF AIL 


;BIT 18 


.eVTE 


*072 




.WORD 


<C0MMAND1"HEAD> 




.8YTE 


'^0346 




.BYTE 


PWRFAiL 




.BYTE 


*0312 




.WORD 


<2108$-HEAD> 






OUT SETPF] 


;SET POWER FAIL INIT 


,8YTE 


^^0323 , SETPFI&255 
ENDIF 


; register A 



OUT CLRTIM 

.8YTE *0323 , CLRTIM&255 

IFMBI C0MMAND1JNVTIM 

.BYTE *072 

.WORD <C0MMAND1-HEAD> 

.BYTE *0346 

.BYTE INVTIM 

.8YTE *0512 

.WORD <2109$-HEAD> 

OUT SE^IM 
.BYTE ^0323 , SETTIMS255 

ENDIF 



OUT CLRATN 
.BYTE *0323 , CLRATN&255 

IFMBI C0MMAND1,C0NATT 
.8YTE *072 
.WORD <C0MMAND1-HEAD> 
.BYTE *0346 
.BYTE CONATT 
.BYTE *0312 
.WORD <2110$-HEAD> 

OUT SETATN 
.BYTE ^0523 , SETATN&255 

ENDIF 



CLEAR SETACK FLG 

.BYTE ''0250 ! A 
.Bvrf *062 

.WORD <SETACK FL6-HEAD> 



;6ENERATE LCL 2108 NAME 

;CLEAR INTERVAL TIMER INIT 
;register A 

;BIT 19 



;SET INTERVAL TIMER INIT 
;r'^gister A 

;GENERATE LCL 2109 NAME 

;CLEAR CONSOLE ATTENTION 
;register A 

;B1T 20 



;SET CONSOLE ATTENTION 
.•register A 



;with A 



;GENERATE LCL 2110 NAME 
;CLEAR FLAG TO CLEAR CONSOLE 



; ACKNOWLEDGE BEFORE RETURNING 
; TO WCS 



ZZ-E\<AB-1.S 
.MAIN. 



.MAI^. 



5A 
OOBO' 
E6 
20 
CA 
17Ar 

AF 
3C 
32 
0405 » 



AF 
3C 
32 
035A' 



5A 
OOBO* 
F6 
40 
CA 
1782' 

AF 
32 
035A* 



34 D3 



3A 
OOAF ' 
E6 
10 
CA 
17BE' 

35 D3 



31 D3 
5A 



1794 

1794 

1795 

1797 

1798 

1799 

179A 

179C 

179C 

179D 

179E 

179F 

17A1 

17A1 

17A1 

17A1 

17A1 

17A1 

17A1 

17A2 

17A3 

17A4 

17A6 

17A6 

17A6 

17A7 

17A9 

I^AA 

17AB 

17AC 

17AE 

17AE 

17AF 

1760 

1762 

1782 

1762 

1782 

1782 

1784 

1784 

1784 

1785 

1787 

1788 

1789 

178A 

178C 

i7ec 

176E 
17eE 
178E 
176E 
178E 
17C0 
17C0 
17C0 



4149 



4150 



4151 
4152 
4153 

4154 
4155 



4156 
4157 



2111$: 



4158 



4i59 

4160 
4161 

4162 
4163 



2112$ 



4164 

4165 

4166 
4167 

4168 
4169 



2113$ 



.8YTE 
.WORD 
.8YTE 
.BYTE 
.8YTE 
.WORD 

.BYTE 
.BYTE 
.BYTE 
.WORD 



.BYTE 
.8YTE 
.BYTE 
.WORD 



.BYTE 
.WORD 
.BYTE 
.BYTE 
.BYTE 
.WORD 

.BYTE 

.BYTE 
.WORD 



.BYTE 



.BYTE 
.WORD 
.BYTE 
.8YTE 
• BYTE 
.WORD 

.8YTE 



.BYTE 
.BYTE 
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COMMAND nCONACK 



IFMBI 

^^072 

<C0MMAND1-HEAD> 

*0346 

CONACK 

''0312 

<2111$-HEAD> 

SET SETACK FL6 

*O250 I A 

*04 ! <8*A> 

^062 

<SETACK FLG-HEAD> 



ENDIF 



SET MEM REG 

*0250 I A " 

*04 ! <8*A> 

*062 

<HEM REQ-HEAD> 



;B]T 21 



;with A 



;with A 



;SET FLAG TO SET CONSOLE 



; ACKNOWLEDGE BEFORE RETURNING 
; TO WCS 

;6ENERATE LCL 2111 NAME 

;ALLOW MEMORY REQEST WHEN 



IFMBI 

^U72 

<C0MMAND1"HEAD> 

'^0346 

EMEMREF 

*0512 

<2112$-HEAD> 

CLEAR MEM REQ 

^^0250 ! A " 

*062 

<HEM REQ-HEAD> 

ENDir 



C0MMAND1,EMEMREF 



;BIT 22 



;with A 



;DONT ALLOW MEM REQ WHEN 



;GENERATE LCL 2112 NAME 



OUT 
-^0323 



INITL 
INITL&255 



.'CLEAR UNIBUS INIT 
.•register A 



IFMBI 

*072 

<COMMAND0-HEAD> 

*0346 

UBS INIT 

^^0372 

<2113$-HEAD> 



COMMANDO, UBS.INIT 



;BIT 28 



OUT 

"0323 

ENDIF 



OUT 
^0323 

IFMBI 
*072 



INITH 
INITH&255 



CLRDCL 
CLRDCLB255 



;SEr UNIBUS INIT 
; register A 

.■GENERATE LCL 2113 NAME 

;CLEAR UNIBUS DC LO 
.-register A 



COMMANDO, UBS.DC^LO 



;BIT 29 






p- 



Z2-ENKAB-1.5 .MAIN 
.MAIN. 



OOAF" 
B6 
20 
CA 

17D2' 

CD 
OECA' 

50 D3 

CD 
12A0* 

51 D5 



2E D5 



3A 
OOAF • 
E6 
AO 
CA 
17DE' 

2f D3 



C9 



3A 
053D' 
OF 
DA 
17F6' 



■I7C1 

17C5 

17CA 

17C5 

17C6 

17C8 

17C8 

17C9 

17C8 

17CQ 

17CD 

17CD 

17CE 

17D0 

17D0 

17D2 

17D2 

17D2 

17D2 

17D2 

17DA 

17DA 

17D4 

17D5 

17D7 

17D8 

17D9 

17DA 

17DC 

17DC 

17DE 

17DE 

17DE 

17DE 

17DE 

17Dr 

17DF 

17DF 

^7DF 

17DF 

17DF 

17DF 

17DF 

17DF 

17DF 

17DF 

17DF 

17DF 

17DF 

17DF 

17DF 

17DF 

17E0 

17E2 

17E5 

17EA 

17E6 



4170 

4171 
4172 

4175 
4174 

4175 

417o 

4177 
4178 



2114$ 



4179 

4180 

4181 
4182 

4183 
4184 
4185 
4186 
4187 
4188 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
4197 
4198 



2115$ 



.WORD 
.BYTE 
.BYTE 
.8YTE 
.WORD 

.BYTE 
.WORD 

.BYTE 

.BYTE 
.WORD 

.BYTE 



.BYTE 



.BYTE 
.WORD 

.BYTE 
.BYTE 
.BYTE 
.WORD 

.BYTE 



.BYTE 
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<COMMANDO-HEAD> 

*0346 

UBS DC LO 

*03T2 

<2114$-HEAD> 

CALL NOP CSR R 

"0315 ■ ■ 

<NOP CSR R-HEAD> 

OUT ■ SETDCL 

*0525 , SETDCLS255 ;registe 

CALL MICRO STEP CPU R 

*0315 - - - 

<MICRO STEP CPU R-HEAD> 

OUT " CLRBCL 

"0323 , CLRDCL&255 ;registe 



ENDIF 



OUT 
"0323 



CLRBSY 

CLRBSY&255 ;registe 

COMMANDO, UBS.BUSY 



IFMBI 

"072 

<COMMAND0"HEAD> 

"0546 

UBS BUSY 

"05T2 

<2115$-HEAD> 

OUT SETBSY 

"0523 , SETBSY&255 

ENDIF 



RET 
"0511 



LOAD CSR WITH A NOP 



SET UNIBUS DC LO 

A 
CLOCK THE SIGNAL INTO MCT 



CLEAR ^^GNAL 
r A 

GENERATE LCL 2114 NAME 

CLEAR UNIBUS BUSY 
r A 

BIT 30 



;SET UNIBUS BUSY 
;register A 

.•GENERATE LCL 2115 NAME 



LOOPER 

THIS ROUTINE READS A COUNT FROM THE CPU AND CAUSES THE CPU TO LOOP 
THAT NUMBER OF TIMES BY SETTING THE ADDRESS TO ITS LOOP INSTRUCTION 
WHEN CALLED THE FIRST TIME THIS ROUTINE READS THE COUNT. ON ALL OTHER 
CALLS UNTIL THE COUNT = THE COUNT IS DECREMENTED. WHEN THE COUNT = 
THE ADDRESS IS SET FOR NO LOOPING AND THE NEXT CALL IS SET TO READ A 
NEW COUNT 

4 *ik A «*«*^A**4*^it**4**<c**^** *************************************************** 

LOOPER: 



4199 





IFN HAVE CNT 


.BYTE 


"072 


.WORD 


<HAVE CNT-HEAD> 


.BYTE 


"017 " 


.BYTE 


"0552 


.WORD 


<2116$-h:ad> 



ZZ-ENKAB-1.5 
.MAIN, 



.MAIN. 





17E6 


4200 


47 3E 


17E6 






17E8 


4201 


CD 


17E8 




'1167' 


17E9 






17EB 


4202 


3A 


17EB 




OOAC ' 


17EC 






17EE 


4203 


32 


17EE 




0347* 


17EF 






17F1 


4204 




17F1 


4205 


AF 


17F1 




3C 


17F2 




32 


17F3 




033D* 


17F4 






17F6 


4206 




17F6 


4207 




17F6 






17F6 


4208 




17F6 


4209 


21 


17F6 




03'47' 


17F7 






17F9 


4210 


35 


17F9 






17FA 


4211 


CO 


17fA 






17F8 


4212 




17f6 


4213 


21 


17f8 




00*C6' 


17FC 






17FE 


4214 


CO 


17FE 




126r 


17FF 






1801 


4215 




1801 


4216 


AF 


1801 




32 


1802 




033D' 


1803 






1805 


4217 




1805 


4218 


C9 


1805 






1806 


4219 




1806 


4220 




1806 


4221 




1806 


4222 




1806 


4223 




1806 


4224 




1806 


4225 




1806 


4226 




1806 


4227 




1806 


4228 




1806 


4229 




1806 


4230 




1806 


4231 




1806 


4232 



2116$: 
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;READ LOOP COUNT (ONCE ONLY) 



;GET COUNT FROM DATA WORD 
;SAVE IT 



127 
(1) 





MVI A, LOOP CNT ADD 


.BYTE 


<A*8> ! 6 , LOOP CRT ADD&255 




CALL READ LS R 


.BYTE 


*0315 


.WORD 


<READ LS R"HEAD> 




LDA " 15ATA3 


.BYTE 


*072 


.WORD 


<DATA3-HEAD> 




STA LOOP COUNTER 


.BYTE 


*062 


.WORD 


<LOOP_COUNTER"HEAD> 




SET HAVE CNT 


.BYTE 


*0250 ! A ;wit 


.BYTE 


"04 I <8*A> 


.BYTE 


*062 


.WORD 


<HAVE CNT*HEAD> 



ENDIF 





LXl H,LO0P COUNTER 


.BYTE 


<H*8> 1 1 


.BYTE 


<LOOP C0UNTER"HEAD>8255 




DCR " M 


.BYTE 


*05 : <8*M> 




RNZ 


.BYTE 


*0300 




LXI H.UPC SUB 


.BYTE 


<H*8> ! 1 


.BYTE 


<UPC SUB-HEAD>£255 , « 




CALL" INC WORD R 


.BYTE 


^0315 


.WORD 


<INC_WORD.R-HEAD> 




CLEAR HAVE CNT 


.BYTE 


*O250 ! A ■ 


.BYTE 


*062 


.WORD 


<HAVE.CNT-HEAD> 




RET 


.BYTE 


^0311 



; GENERATE LCL 2116 NAME 



«L00P COUNTER-HEAD>&*XFF00>/256 
"DECREMENT LOOP COUNT 

;EXIT IF COUNT NOT EXPIRED 



;MOVE UPC ONE EXTRA WORD 

«UPC SU8-HEAD>&*XFF00>/256 

;AND CAUSE IT TO START THERE 



;with A 



;SET TO READ A NEW COUNT 



****************************************************************************** 

SUB ATTENTION 

THIS ROUTINE IS USED AS AN IDLE ROUTINE WHEN EXECUTING A SUBROUTINE IN 
WCS. THERE IS NO READ OF THE COMMAND AND STATUS WORD AFTER AN ATTENTION 
SIGNAL IS FOUND BECAUSE IT IS KNOWN THAT THIS MEANS END OF SUBROUTINE. 
SEE ATTENTION ROUTINE FOR MORE INFO 

****************************************************************************** 



SUB ATTENTION: 



CALL 



RESET TIMOUT 



;RESET TIMOUT COUNTER 













E 11 


ZZ-ENKAB-1.5 .MAIN 


. 








14-JUN-1984 Fi 


.MAIN. 










14-JUN-1984 1 












14-JUN-1984 1 




CD 


1806 




.BYTE 


^^031 5 




1932' 


1807 




■ WORD 


<RESET.T]MOUT-HEAD> 






1809 


4233 










1809 


A234 




WHILE RUNNING 






1809 


A002$: 


LDA 


RUNNING 




3A 


1809 




.BYTE 


*072 




0A03* 


180m 




.WORD 


<RUNNIN6"HEAD> 




OF 


180C 




.BYTE 


^^017 




D2 


180D 




.BYTE 


*0322 




183D' 


180E 
1810 


4235 


.WORD 


<2117$-HEAD> 






1810 


4236 




LDA MICRO STEP 




3A 


1810 




.BYTE 


*072 




038A' 


1811 




.WORD 


<MICRO STEP-HEAD> 






1813 


4237 




ORA " A 




B7 


1813 




.BYTE 


*0260 ! A 






18U 


4238 




CN2 MICRO STEPER 




CA 


18U 




.BYTE 


'^0304 




1257' 


1815 




.WORD 


<M1CR0_STEPER-HEAD> 






1817 


4239 










1817 


4240 




IN CPATTN 




83 DB 


1817 




.BYTE 


*0333 , CPATTN&255 






1819 


4241 




RAR 




1F 


1819 
181A 


4242 


.BYTE 


^^037 






181A 


4243 




IFC 




02 


181A 




.BYTE 


^0322 




183A' 


181B 




.WORD 


<2118$"HEAD> 






181D 


4244 




IN CPUACK 




82 DB 


181D 




.BYTE 


*0333 , CPUACKB255 






181F 


4245 




STA ACK SAVE 




32 


181F 




.BYTE 


*062 




01 7A' 


1820 




.WORD 


<ACK SAVE-HEAD> 






1822 


4246 




CALL" RESET TIMOUT 




CD 


1822 




.BYTE 


•^0315 




1932' 


1823 




.WORD 


<RESET TIMOUT-HEAD> 






1825 


4247 




CALL " STOP CPU 




CD 


1825 




.BYTE 


"031 5 




10C9* 


1826 




.WORD 


<ST0P.CPU-HEAD> 






1828 


4248 










1828 


4249 




MVI B,<*X22> 




22 06 


1828 




.BYTE 


<B*8> ! 6 , *X22S255 






182A 


4250 




LDA ACK SAVE 




3A 


182A 




.BYTE 


''072 




01 7A' 


1828 




.WORD 


<ACK SAVE-HEAD> 






182D 


4251 




RAR " 




IF 


182D 




.BYTE 


*037 






182E 


4252 




JC ERROR ROUTINE 




DA 


182E 




.BYTE 


*0332 




0CA5' 


182F 




.WORD 


<ERROR_ROUTINE,NO.RET- 






1831 


4253 










1831 


4254 










1831 


4255 










1831 


4256 




CALL CHECK CNTLC 




CD 


1831 




.BYTE 


"0315 




1073 


1832 




.WORD 


<CHECK CNTLC-HEAD> 






183^ 


4257 
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;6ET MICRO STEP FLAG 

;SET CONDITION CODES 
;MICRO STEP CPU IF SET 



;to register A 



:lf CPU.ATTENTION 



; to register A 



;STOP SUBROUTINE 



;ERROR CODE IF CPU ACK SET 



NO_RET ;60 TO ERROR ROUTINE IF CPU 

HEAD> 

; ACK (CARRY) IS SET. DON'T 
; RETURN 

;ELSE IF *C TYPED, 60 TO PARSER 
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1834 A258 ENDIF 

1834 2118$: ;GENERATE LCL 2118 NAME 

1834 4260 CALL GCVECT ;CHECK FOR OPERATOR REQUEST 

CD 1834 ..BYTE *0315 

41 29 1 835 .WORD <GCVE CT-HEAD> 

1837 4261 CALL TIMOUT 

CD 1837 .BYTE *0315 

1907* 1838 .WORD <TIMOUT-HEAD> 

183A 4262 

183A 4263 ENDWHILE 

C3 183A .BYTE *O303 

1809' 183B .WORD <4002$-HEAD> 

183D 2117$: ;GENERATE LCL 2117 NAME 

183D 4264 

183D 4265 RET 

C9 183D .BYTE *0311 

183E 4266 

183E 4267 

183E 4268 •**********A**f************************************«**** ************************ 

183E 4269 '• 

183E 4270 ; EOP 

183E 4271 ; THIS ROUTINE IS EXECUTED AT END OF PASS 

183E 4272 ; 

183E 4273 • ****************************************************************************** 

183E 4274 ' 

183E 4275 EOP: 

183E 4276 IF PRINT PASS 

3A 183E .BYTE -^072 

03ED' 183F .WORD <PRINT PASS-HEAD> 

OF 1841 .BYTE *017 

D2 1842 .BYTE *0322 

184B' 1843 .WORD <2119$-HEAD> 

1845 4277 

1845 4278 LXI H,PASS^A 
21 1845 .BYTE <H*8> ! 1 

03*DE* 1846 .BYTE <PASS A"HEAD>&255 , «PASS A"HEAD>&*XFF00>/256 

1848 4279 CALL " PRINT STRING R 

CD 1848 .BYTE *0315 

100E' 1849 .WORD <PRINT STRING R"HEAD> 

1848 4280 

184B 4281 ENDIF 

184B 2119$: ;GENERATE LCL 2119 NAME 

1846 4282 

184B 4283 LXI H.SEC TABLE 

21 184B .BYTE <H*8> I 1 

08'5F' 184C .BYTE <SEC TABLE-HEAD>6255 , «SEC TABLE-HEAD>6'^XFF0O>/256 

184E 4284 SHLD" TABLE PNT ;RESET TABLE POINTER 

22 184E .BYTE "042 

040C* 184F .WORD <TABLE PNT-HEAD> 

1851 4285 

1851 4286 CLEAR EOS FLG ;RESET END OF SECTION 

AF 1851 .BYTE *O250 1 A ~ ;with A 

32 1852 .BYTE '^062 

0056' 1853 .WORD <EOS FLG-HEAD> 

1855 4287 

1855 4288 IFNEQ PASS CNT,F WORD, 2 ;"1 PASS CNT =INFIN1TE,SKIP OUT 



2Z-ENKAB-1.5 
.MAIN. 



.MAIN. 



21 


1855 




03'EA' 


1856 




11 


1858 




00'58' 


1859 




02 OE 


1858 




CO 


185D 




OOCF* 


185E 




CA 


1860 




1880* 


1861 






1863 


A289 




1863 


A290 


21 


1863 




03'EA' 


186A 






1866 


4291 


CD 


1866 




12BC' 


1867 






1869 


4292 




1869 


4293 


21 


1869 




03'EA' 


186A 




11 


186C 




05'96' 


186D 




02 OE 


186F 




CD 


1871 




OOCF' 


1872 




C2 


1874 




1880' 


1875 






1877 


4294 




1877 


4295 


AF 


1877 




3C 


1878 




32 


1879 




02FD' 


187A 






187C 


4296 


AF 


187C 




32 


187D 




02EA' 


187E 






1880 


4297 




1880 






1880 


4298 




1880 


4299 




1880 






1880 


4300 




1880 


4301 


C9 


1880 






1881 


4302 




1881 


4303 




1881 


4304 




1881 


4305 




1881 


4306 




1881 


4307 




1881 


4308 




1881 


4309 




1881 


4310 




1881 


4311 




1881 


4312 


21 


1881 





2121$: 



2120$: 



.BYTE 
.BYTE 
.BYTE 
• BYTE 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.WORD 

.BYTE 
.BYTE 
.WORD 
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(1) 



<H'8> 



<PASS CNT-HEAD>&255 



<D*8> 



1 



1 



<F W0RD-HEAD>&255 , 

<C*8> I 6 , 2B255 

*0315 

<COMPARE-HEAD> 

*0312 

<2120$-HEAD> 

LXI HARASS CNT 

<H*8> I 1 

<PASS CNT"HEAD>&255 

CALL " DECR WORD R 

*0315 

<DECR WORD R-HEAD> 



, «PASS_CNT-HEAD>&''XFF00>/256 
«F W0RD-HEAD>S*XFF00>/256 



«PASS CNT"HEAD>&*XFF00>/256 

' ; DECREMENT PASS COUNT 



IFEQ PASS CNT, ZERO WORD, 2 

<H*8> ! 1 

<PASS CNT-HEAD>S255 

<D*8>"! 1 

<ZERO W0RD-HEAD>&255 

<C*8>"! 6 , 24255 

*0315 

<C0MPARE-HEAD> 

*0302 

<2121$-HEAD> 



;IF PASS CNT = CAUSE 
«PASS_CNT-HEAD>a*XFF00>/256 
«ZERO.W0RD-HEAD>6*XFF00>/256 



SET FILE_LOADED 

^^0250 ! A 

*04 ! <8*A> 

*062 

<FILE LOADED-HEAD> 

CLEAR EXECUTE 

*O250 ! A 

'^062 

<EXECUTE-HEAD> 

ENDIF 



ENDIF 



;with A 



;with A 



;RETURN TO PARSER 

; CAUSE EXIT OF MAIN LOAD LOOP 



;GENERATE LCL 2121 NAME 
;GENERATE LCL 2120 NAME 



RET 
.BYTE *0311 

• 

;• BEGIN OF TEST 

; THIS f?OUTlNE HANDLES BEGINING OF TEST SENT FROM THE CPU 

; IF ALSO VERIFIES THE TEST SEQUENCE OF WCS TESTING 

BEGIN OF TEST: 

LXI H,TEST NUM 
.BYTE <H*8> I 1 



ZZ-ENKAB-1,5 

.MAIN. 



.MAIN. 



04*26* 
3A 



21 
04'26' 
11 
04'28' 
01 OE 
CD 
OOCF* 
F2 
1898' 

AF 
3C 
32 
0056* 



CO 
18A1' 

AF 
3C 
32 
0354' 

C9 



2A 
00C6' 

22 
041D* 



21 
00*55' 

46 

C5 
04 3E 

77 



1882 

1884 

1884 

1885 

1885 

1885 

1886 

1888 

1889 

188B 

188D 

188E 

1890 

1891 

1893 

1893 

1894 

1895 

1896 

1898 

1898 

1898 

1898 

1898 

1899 

189B 

1898 

189C 

1890 

189E 

18A0 

18A0 

18A1 

18A1 

18A1 

18A1 

18A1 

18A1 

18A1 

18A1 

18A1 

18A1 

18A1 

18A2 

18A4 

18A4 

18A5 

18A7 

18A7 

18A7 

18A8 

18AA 

18A8 

18AC 

18AE 

18AF 

18AF 



4313 

4314 
4315 



4316 



4317 

4318 
4319 



4320 



4321 

4322 
4323 
4324 
4325 
4326 
4327 
4328 
4329 
4330 
4331 



4332 



4333 

4334 



2122$: 



.BYTE 
.BYTE 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.WORD 

.BYTE 
.BYTE 
.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 
.BYTE 
.BYTE 
.WORD 

.BYTE 
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<TEST NUM-HEAD>S255 , «TEST NUM-HEAD>&*XFF00>/256 
INR " M ■ ; INCREMENT TEST NUM 

*04 I <8*M> 



TEST.NUM,TEST_NUM2J 

«TEST^NUM-HEAD>&*XFFO0>/256 
«TEST_NUM2-HEAD>a*XFF0O>/256 



IFGT 

<H*8> ! 1 

<TEST NUM-HEA0>&255 

<D*8>"! 1 

<TEST NUM2-HEAD>£255 

<C*8>'! 6 , ia255 

*0315 

<COMPARE-HEAD> 

*0362 

<2122$-HEAD> 

SET EOS Fl6 

*0250 ! A 

*04 I <8*A> 

*062 

<EOS FLG-HEA0> 

ENOIF 



CALL VERIFV SEQ 

*0315 

<VERIFY SEQ"HEAD> 

SET "MEM REQ 

*0250 ! A 

'^04 ! <8*A> 

^^062 

<MEM REQ-HEAO> 

RET " 

^0311 



;with A 



; FORCE END OF SECTION 



.-GENERATE LCL 2122 NAME 



;w1th A 



VERIFY SEQ 

THIS ROUTINE VERIFIES THE TESTS RUN IN SEQUENCE BY READING THE UPC 

AND COMPARING IT TO A KNOW VALUE 

t******************************************:*************** ******************** 



VERIFY SEQ: 

" .BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



4335 



2123$: 



LHLO UPC SUB 

*052 

<UPC SUB-HEAD> 

SHLD" TEMP W0RD2 

*042 

<TEMP.W0RD2-HEAD> 

DO 4 

<H*8> I 1 
<D0LO0P-HEAD>&255 

*0100 ! <8*8> ! M 

*0305 ! <8»B> 

<A*8> ! 6 , 4&255 

'^0100 I <M*8> ! A 



;SAVE GET UPC VALUE 



«DOL0OP-HEAO>&''XFF00>/256 



2Z-ENKAB-1.5 
.MAIN. 



.MAIN. 



21 
04'ID' 

7E 

E6 
3F 

71 
CD 

i2ec' 



21 
00"55' 
35 
C2 
18AF' 
CI 
70 



AF 
32 
006C' 

3A 
0A26' 

32 
006D' 

CD 
0E6D' 



21 
00'55' 
^6 
C5 
3E 
11 



0^ 



21 
00'86' 

03 OE 

CD 

OEcr 

21 
00'55' 
35 



18AF 

18AF 

18B0 

18B2 

1882 

18B3 

18B3 

18BA 

18B5 

18B5 

18B6 

18B6 

188? 

18B9 

18B9 

1889 

18BA 

18BC 

18BD 

18BE 

18C0 

18C1 

18C2 

18C2 

18C2 

18C3 

IBC; 

18C6 

18C6 

18C7 

18C9 

18C9 

18CA 

18CC 

18CC 

18CD 

18CF 

18CF 

18CF 

18D0 

18D2 

18D3 

18DA 

18D6 

18D7 

18D7 

18D7 

18D8 

18DA 

18DA 

18DC 

18DC 

18DD 

180F 

18DF 

18E0 

18F2 



4336 



4337 
4338 



A339 
4340 



4341 
4342 



4343 
4344 



43;:i 



4346 



4347 



4348 
4349 



4350 



4351 
4352 



4353 



2124$: 



.BYTE 
.BYTE 

.BYTE 

• BYTE 
.BYTE 

.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.8YTE 
.BYTE 



.BYTE 
.BYTE 
.WORD 

.BYTE 
.WORD 

• BYTE 

.WORD 

.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



.BYTE 
.BYTE 

.BYTE 

.BYTE 

• WORD 

.BYTE 

.BYTE 
.BYTE 
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LXl HJEMP W0RD2 

<H*8> ! 1 

<TEMP WORD2-HEAD>S255 

MOV " A,M 

*0100 ! <A*8> ! M 

ANI HEX 3F 

'^0346 

HEX 3F 

MOV" 

^0100 I 

CALL 

*0315 

<DECR WORD H-HEAD> 



;MASK OFF WCS HIGH PAGE 
«TEMP_W0RD2-HEAD>&*XFF00>/256 



M,A 

<M*8> ! A 
OECR WORD R 



;INC VALUE BY 4 



ENDDO 
<H*8> ! 1 
<DOLO0P-HEAD>&255 
^05 : <8*M> 
*O302 

<2123$-HEAD> 
*O301 I <8*B> 
*0100 ! <M*8> I B 



«DOLOOP-HEAD>&*XFF0O>/256 



WCS ADDRESS 
A " 



CLEAR 

*O250 ! 

*062 

<WCS ADDRESS-HEAD> 

LDA " TEST NUM 

*072 

<TEST NUM-HEAD> 

STA " WCS ADDRESS+1 

*062 

<WCS ADDRESS+1"HEAD> 

CALL READ WCS R 

*0315 " ■ 

<READ WCS R"HEAD> 



;with A 



;GET KNOW VALUE FOR THIS TEST 
;FROM WCS 



«DOLOOP-HEAD>S*XFF0O>/256 



DO 4 

<H»8'> I 1 
<DOLOOP-HEAD>&255 

*0100 ! <8*8> 1 M 

*O305 ! <8*B> 

<A*8> : 6 , 4&255 

*0100 ! <M*8> I A 



LXI H,WCS VALUE*2 

<H*8> ! 1 

<WCS VALUE+2-HEAD>B255 

MVl ■ C,3 

<C*8> ! 6 , 3S255 

CALL SHIFTER1 R 

•^0315 

<rSHlFTER1 R-H£AD> 

ENDDO 

<H«8> : 1 

<DOLOOP"NEAD>&255 , «DOL0OP-HEAD>&'^XFF00>/256 
*05 I <8*M> 



;P01NT TO WCS DATA 
«WCS,VALUE+2"HEAD>&'^XFF00>/256 

;SHIFT 17-4(OF JUMP) TO 21-8 



L.. 



ZZ-ENKAB-1.5 
.MAIN. 



.MAIN. 



C2 


18E3 




18D7* 


1864 




CI 


18E6 




70 


18E7 






18E8 


435A 




18E8 


A355 


3A 


18E8 




0OB4' 


18E9 






18EB 


A556 


E6 


18EB 




3F 


18EC 






18ED 


A357 


32 


18ED 




OOBA* 


18EE 






18F0 


A558 




18F0 


A359 


21 


18F0 




OAMD* 


18F1 




11 


18F3 




OO'B-;* 


18FA 




0? OE 


18F6 




CD 


18F8 




OOCF' 


18F9 




CA 


18FB 




1906' 


18FC 






18FE 


A360 


23 06 


18FE 






1900 


4561 


CD 


1900 




OCAA' 


1901 






1905 


4362 


CD 


1903 




1078' 


190A 






1906 


4365 




1906 






1906 


4364 




1906 


4365 


C9 


1906 






1907 


4366 




1907 


4367 




1907 


4368 




1907 


4369 




1907 


4370 




1907 


4371 




1907 


437? 




1907 


4373 




1907 


4374 




1907 


4375 




1907 


4376 


3A 


1907 




005A' 


1908 




E6 


190A 




01 


1908 




(2 


190C 




192E 


190D 






190F 


4377 




190F 


4378 



2125$: 
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.BYTE 
.WORD 
.BYTE 
.BYTE 



.BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.WORD 

.BYTE 

.BYTE 
.WORD 

.BYTE 
.WORD 



*O302 
<2124$-HEAD> 



'^0301 
*0100 



: <8*B> 
! <M*8> ! 



B 



WCS VALUE 



LDA 

^072 

<WCS VALUE--HEAD> 

ANI " HEX 3F 

''0346 

HEX 3F 

STA" WCS VALUE 

'^062 

<WCS_VALUE-HEAD> 



;AND OUT TO ONLY ADDRESS 



TEMP_W0RD2,WCS_VALUE,2 

<<TEMP_W0RD2-HEAD>&*XFF00>/256 
«WCS.VALUE-HEAD>&'^XFF00>/256 



IFNEQ 

<H*8> ! 1 

<TEMP W0RD2"HEAD>B255 

<D*8>"! 1 

<WCS VALUE-HEAD>8255 , 

<C*8> ! 6 , 26255 

*0315 

<COMPARE-HEAD^ 

*0312 

<2125$-HEAD> 

MVI B,<*X23> 

<B*8> I 6 , *X23S255 

CALL ERROR ROUTINE 

^0315 

<ERROR ROUTINE-HEAD> 

CALL " SET FOR CONT R 

*0315 - - - 

<SET FOR CONT R-HEAD> 

ENDlF " 



;SEQUENCE ERROR IN WCS TEST 



;ALLOW CONTINUE 



.•GENERATE LCL 2125 NAME 



RET 

.BYTE ''0311 

TIMOUT 

THIS ROUTINE IS USED TO TELL IF THE CPU IS NOT RESPONDING 

IN A REASONABLE TIME PERIOD. IF THE COUNTER OVERFLOWS A TIMOUT 

HAS OCCURED. 

TIMOUT; IFNMBI FLAGS, LOOP.S.DEF 

.BYTE *072 

.WORD <FLAGS-HEAD> 

.8YTE •'0346 

.BYTE LOOP S DEF 

.BYTE *O302 

.WORD <2126$-HEAD> 



LXI 



HJIMOUT^CN' 



;COUNTER FOR TIMING 



ZZ-ENKAB-1.5 .MAIN 

.MAIN. 



21 
OA*AA' 

CD 

12B1' 



21 
OA'^A' 

11 
05'96' 
02 OE 
CD 
OOCF' 
C2 
192B' 

24 06 

CD 
OCAA* 

CD 



C3 
1931' 



CD 
1073' 



C9 



21 
OA'AA' 

AF 

11 



190F 

1910 

1912 

1912 

1913 

1915 

1915 

1915 

1916 

1918 

1919 

191B 

191D 

191E 

1920 

1921 

1923 

1923 

1925 

1925 

1926 

1928 

1928 

1929 

1926 

1926 

1928 

1928 

1926 

192C 

192E 

192E 

192E 

192F 

1931 

1931 

1931 

1931 

•:931 

1931 

1932 

1932 

1932 

1932 

1932 

1932 

1932 

1932 

1932 

1932 

1932 

1933 

1935 

1935 

1956 

1936 

1937 



A379 



A380 
A581 



A382 
A383 

«i384 

-!.385 

/*386 
4387 



4388 



4389 
4390 

4391 
4392 

4393 
4594 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
440? 



4403 
4404 
4405 



2127$: 



2126$: 



2128$: 



.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.BYTE 
■ WORD 

.BYTE 

.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
.WORD 



.BYTE 

.WORD 
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<H*8> I 1 

<TI«OUT CNT"HEAD>6255 , «TJMOUT CNT-HEAD>a*XFF0O>/256 

CALL "INC WORD R JlNCREMENT COUNTER 

*0315 

<INC WORD R-HEAD> 



13A 
(1) 



T1M0UT^CNT,ZER0_W0RD,2 

«TlM0UT_CNT-HEAD>&*XFF00>/256 
«ZERO_WORD-HEAD>&''XFF00>/256 



IFEQ 

<H*8> ! 1 

<T1H0UT CNT-HEAD>&255 

<D*8> !~1 

<ZER0 W0RD"HEAD>&255 , 

<C*8>"I 6 . 2&255 

*0315 

<COMPARE"HEA0> 

*O302 

<2127$-HEAD> 

MVI B,<*X24> 

<B*8> \ 6 , *X24&255 

CALL ERROR ROUTINE 

*0315 

<ERROR ROUTJNE-HEAD> 

CALL SET FOR CONT R 

■^0315 - - •■ 

<SET FOR CONT R-HEAD> 

ENDJF " 



ELSE 

^^0303 

<2128$-HEAD> 

CALL CHECK CNTLC 

*0315 

<CHECK_CNTLC-HEAD> 

ENDIF 



RET 

*0311 



/OVERFLOW. PRINT ERROR 



;60 TO COMMAND LEVEL 



/GENERATE LCL 2127 NAME 



/GENERATE LOCAL SYMBOL NAME 
/IF ERROR LOOPING, CHECK 



/ FOR *C FROM OPERATOR 
/GENERATE LCL 2128 NAME 



.BYTE 
RESET TIMOUT 

THIS Routine resets the timeout counters to zero for a full 

TIMOUT PERIOD 



RESET TIMOUT: 
.BYTE 
.BYTE 

.BYTE 

.BYTE 



LXJ H, TIMOUT CNT 

<H»8> ! 1 

<T1M0UT CNT-HEAD>&255 , <<TIMOUT CNT-HEAD>&''XFF00>/256 

XRA "a 

^0250 1 A /with A 

MOV M,A 

'0100 : 'M*8> I A 

INX H 



I 



Z2-ENKAB-1.5 
.MAIN. 



.MAIN. 
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23 
11 
C9 



F5 

C5 

D5 

E5 

CD 
10C9' 

3A 
025A* 

3C 

52 
025^* 



FE 
02 



CA 
1951' 



FB 
CD 

ocir 

2A 

OOC^' 

22 
005B* 

21 
00*58* 



1937 

1938 

1938 

1939 

1939 

193A 

193A 

193A 

193A 

193A 

193A 

193A 

193A 

193A 

193A 

193A 

193A 

1938 

193B 

193C 

193C 

193D 

193D 

193E 

193E 

193F 

19A1 

19A1 

19A2 

19AA 

194^; 

19A5 

19A5 

19^6 

19A8 

1948 

1948 

1949 

:94A 

194 A 

194A 

1948 

194D 

194D 

194D 

194E 

194E 

194F 

1951 

1951 

1952 

1954 

1954 

1955 

1957 

1957 

1958 



4406 

4407 

4408 
4409 
4410 
4411 
4412 
4413 
4414 
4415 
4416 
4417 
4418 

4419 

4420 

4421 

4422 



4423 

4424 
4425 



4426 
4427 



4428 
4429 



4430 
4431 

4432 
4433 
4434 
4435 



.BYTE 


<H*8> 


3 




MOV 


M,A 


.BYTE 


*0100 

RET 


<M*8> : 


.BYTE 


'^OSII 





***************H****<»****l>t******************** ************** ****************** 

PARITY ERR 

THIS ROUTINE GETS CONTROL ON A PARITY ERROR INTERRUPT 

THE INTERRUPT COULD ALSO BE KNOWN PARITY ERRORS SUCH AS A SOMM 

*******************************************************'*********************** 



PARITY ERR: 

" .BYTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 
.WORD 

.BYTE 
.WORD 

.8YTE 

.BYTE 
• WORD 



.BYTE 
.BYTE 



1$: 



.BYTE 
.WORD 



.BYTE 

.BYTE 
.WORD 

.BYTE 
.WORD 

.8YTE 
.WORD 

.BYTE 
.8YTE 



PUSH 


$PSW 


*0305 


1 <8*$PSW> 


PUSH 


B 


*0305 


! <8*6> 


PUSii 


D 


*0305 


! <8*D> 


PUSH 


H 


*0305 


! <8*H> 


CALL 


STOP CPU 


*0315 




<STOP 


CPU-HEAD> 


LDA 


■ CNT PAR 


*072 




<CNT PAR-HEAD> 


INR 


A 


*04 ! 


<8*A> 


STA 


CNT PAR 


^062 




<CNT PAR-HEAD> 



CPl 

*0376 

2 



1$ 



n 

-^0312 
<^1$-HEAD> 



EI 

'^0373 

CALL SAVE WR 

'^031 5 

<SAVE WR-HEAD> 

LHLD " SAVED UPC 

*052 

<SAVED UPC"HEAD> 

SHLD " HEX BUF 

*042 

<HEX BUF-HEAD> 

LXI " H.HEX BUF 

<H*8> ! 1 

<HEX BUF-HEAD>&25b 



;SAVE FLAGS AND ACCUMULATOR 
;SAVE BC PAIR 
;SAVE DE PAIR 
;SAVE HL PAIR 
;STOP THE CLOCK 

;GET COUNT OF PARITY ERRORS 

;INC COUNT 
;UPDATE COUNT 

;SEE IF PARITY C0UNT=2 (SECOND 



; PARITY ERROR OCCURED) 
; DON'T TRY SAVE.WR IF SO 



;REENABLE INTERRUPTS 



;SAVE UPC 

;POINT TO STORED UPC 
, «HEX,BUF-HEAD>&*XFF00>/256 



!ZZ"ENKA3-1,5 .MAIN. 
.MAIN. 



M 11 
U-JUN-198'i 





195A 


AA36 


CD 


195A 




i2BC' 


195B 






195D 


A437 




195D 


i*i*l^ 




195D 


4439 


CD 


195D 




197D* 


195E 






1960 


4440 




1960 


4441 




1960 


4442 


5A 


1960 




03^9* 


1961 




OF 


1963 




\)2 


1964 




1970* 


1965 






1967 


4443 


21 


1967 




OQ'72' 


1968 






196A 


4444 


11 


196A 




OO'BB' 


1968 






196D 


4445 


CD 


196D 




0F5F' 


196E 






1970 


4446 




1970 






1970 


U^7 




1970 


4448 


AF 


1970 




52 


1971 




03^^' 


1972 






1974 


4449 


CD 


197*; 




noE' 


1975 






1977 


4450 




1977 


4451 


El 


1977 






1978 


-1,452 


D1 


1978 






1979 


4453 


CI 


1979 






197A 


4454 


F1 


197A 






1978 


^455 




1978 


4456 


FB 


1978 






197C 


4457 


C9 


197t 






197D 


4458 




197D 


AA59 




197D 


ii^tO 




197D 


4461 




197D 


4462 




197D 


4463 




197D 


4464 




197D 


4465 



2129$: 



.BYTE 
.WORD 



.BYTE 
.WORD 



.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 

.BYTE 
.BYTE 

.8YTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
.BYTE 
.8YTE 
.BYTE 

.BYTE 
.BYTE 
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136 
(1) 



DECR_W0RD_R 



CALL 

"0315 

<DECR WORD R-HEAD> 



CALL CHECK IS SETPAR 

^^0315 

<CHECK LS SETPAR-HEAD> 



IF LS PARERR ACT 

*072 

<LS PARERR ACT-HEAD> 

'^Ol? 

"0322 

<2129$-HEAD> 

LXI H,N0P INST 

<H*8> : 1 

<NOP INST-HEAD>&255 , 

LXI " D, SAVED CSR 

<D*8> ! 1 

<SAVED CSR"HEAD>&255 

CALL " MOVER 3 R 

"0315 

<MOVER 3 R-HEAD> 

ENDIF " 



;BACK UP UPC. PARITY ERROR 

; HAS ALREADY REACHED CSR 
;CHECK TO SEE IF PARITY ERROR 

; WAS INTENTIONAL 



;SET UP TO PUT NOP IN CSR 
«NOP.INST-HEAD>&"XFFO0>/256 

«SAVED CSR-HEAD>&'*XFF00>/256 



LS PARERR ACT 
A " 



CLEAR 

"0250 

"062 

<LS PARERR ACT"HtAD> 

CAlC RESTART CPU 

"0315 

<RESTART CPU-HEAD> 



;with A 



;GENERATE LCL 2129 NAME 
;CLEAR FLG in CASE IT IS SET 



POP 

"0301 

POP 

"0301 

POP 

"0301 

POP 

"0301 

EI 
"0373 

RET 
"0311 



H 

<8*H> 

D 

<8*D> 

B 

<8*B> 

$PSW 

<8*$PSW> 



RESTORE HL PAIR 

RESTORE OE PAIR 

RESTORE BC PAIR 

RESTORE FLAGS AND ACCUMULATOR 

;REENABLE INTERRUPTS 



THIS ROUTINE CHECKS TO SEE IF PARITY ERROR WAS CAUSED BY INTENTIONALLY 
PUTTING A PARITY ERROR IN WCS VIA A COMMAND FROM THE CPU MICRO-CODE 



CHECK LS SETPAR: 



IF 



LS SETPARERR 



Z2-E.NKAB-1.5 .MAIN, 

.MAIN. 



5A 
0348' 
OF 
D2 
198C' 

AF 

3C 
f^ 

03^9' 



C3 
1995' 



26 06 

CD 
OCAA' 

FB 

CD 
107B' 



C9 



Af 
3C 
32 
025E' 



CD 
1165' 



2'- 
OO'AB* 



197D 

197E 

1980 

1981 

1982 

1984 

1984 

1985 

1986 

1987 

1989 

1989 

1989 

198A 

198C 

198C 

198C 

198C 

198E 

198E 

198F 

1991 

1991 

1992 

1992 

1993 

1995 

1995 

1995 

1995 

1995 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

':996 

199o 

1996 

1996 

1996 

1996 

1996 

^996 

1997 

1Q98 
1999 
199B 
1996 
199rj 

199r 
199E 
:99E 
199E 
199P 
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4466 



4467 
4468 



4469 
4470 

4471 



4472 
4473 



4474 
4475 

4476 

4477 
4478 
4479 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4^.88 
4489 
4490 



449: 

4^:92 



4^93 
4494 



2130$: 



2131$: 



.BYTE 


^072 


.WORD 


<LS SETPARERR-HEAD> 


.BYTE 


^017 


.BYTE 


*0322 


.WORD 


<2130$-HEAD> 




SET LS PARERR ACT 


.BYTE 


^^0250 I A ' 


.BYTc 


*04 ! <8*A> 


.BYTE 


*062 


.WORD 


<LS_PARERR_ACT-HEAD> 




ELSE 


.BYTE 


'^0303 


.WORD 


<2131$-HEAD> 




MVI B,<'^X26> 


.BYTE 


<B*8> : 6 , *X26&255 




CALL ERROR ROUTINE 


.BYTE 


*0315 


.WORD 


<£RROR RQUTiNE-HEAD> 




EI 


.BYTE 


^^0373 




CALL SET FOR CONT R 


.BYTE 


*0315 " " 


.WORD 


<SET_FOR_CONT.R-HEAD> 




ENDIF 




RET 


.BYTE 


"0311 



;with A 



;SET LS PARITY ERROR ACTIVE FLG 



; GENERATE LOCAL SYMBOL NAME 
;ERROR - WCS PARITY ERROR 

;REENABLE INTERRUPTS 
;ALLOW CONTINUE FROM HERE 



;GENERATE LCL 2131 NAME 
;BACK TO PAR ERR ROUTINE 



DATA XFER 

THIS'ROUTINE TRANSFERS DATA FROM THE WCS MEMORY TO LS OR MAIN MEMORY 
A POINTER IS USED AND INCREMENTED AFTER EACH XFER. THIS POINTER PUINTS 
TO ANOTHER POINTER THAT POINTS TO A DATA CnNFROL BLOCK. THE DATA 
CONTROL BLOCK CONTAINS THE BYTE COUNT AND DESTINATION ADDRESS OF THE 
DATA. THE POINTER iN WCS ALSO CONTAINS ONE BIT THAT TELLS IF THE 
TRANSFER IS FOR LS OR MAIN MEMORY, 



DATA XFER: 

.BYTE 
• BYTE 
.BYTE 
.WORD 



.BYTE 
.WORD 



.BYTE 



SET DATA XFER FLG 
*0250 ! A " 
'^04 : <8*A> 

^^062 
<DATA.XFER_FLG-HEAD> 

CALL READ LS 7 
^0515 " ■ 
^READ LS 7-HEAD> 



H,DATA2 



;with A 



;SET XFER FLAG 



;READ THE POINTER 



LXl 
^'M*8> 

<DATA2-HEAD>&255 , «DATA2-HEAD>&*XFF00>/256 



7-ES<AB"1.5 

VAiN, 



.MAIN. 
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19A1 


A''.95 


n 


19A1 






19A2 


^A96 


E6 


19A2 




3F 


19A3 






19AA 


A497 


12 


19A4 




006C' 


19A5 






19A7 


4498 


23 


19A7 






19A8 


4499 


7E 


19A8 






19A9 


4500 


32 


19A9 




006D' 


19AA 






19AC 


4501 




19Ar 


4502 


CD 


19AC 




0E6D* 


19AD 






19AF 


4503 




19AF 


4504 


2A 


19AF 




0085' 


1980 






1982 


4505 


??. 


1982 




0b8D' 


1985 






19BS 


4506 




1985 


450'^ 


Af 


1965 




3<f 


1996 




0592' 


1967 






1989 


45C3 




1989 


4509 


3A 


i989 




OOBA' 


19BA 




E6 


1980 




01 


1980 




CA 


19BE 




19:6* 


198F 






19C1 


4510 


Af 


19C1 




5C 


19C2 




32 


19C5 




0592' 


19C^ 






19C6 


4511 




19C6 






19C6 


4512 




19C6 


4513 


2^ 


19C6 




00*6C' 


19C7 






19C9 


4514 


CD 


19C9 




128T 


19CA 






19CC 


4515 


CD 


19CC 




OE60' 


19(D 






i9rF 


4516 



2132$ 





M. 7 A,M 


.8YTE 


''UlOO i <A*8> : M 




ANI HEX 3F 


.BYTE 


'^0346 


.BYTE 


HEX 3F 




STA" WCS ADDRESS 


.BYTE 


*062 


.WORD 


<WCS AODRESS-HEAD> 




INX " H 


.BYTE 


<H*8> ! 3 




MOV A,M 


.BYTE 


*0100 ! <A*8> : M 




STA WCS AODRESS+1 


.BYTE 


"062 


.WORD 


<WCS_ADDRESS+I-HEAD> 




CALL READ WCS R 


.BYTE 


^^0315 


.WORD 


<READ,WCS,R-HEAD> 




LHLD WCS VALUE+1 


BYTE 


*052 


.WORD 


<WCS VALUE+1-HEAD> 




SHLD" XFER CNT 


.BYTE 


*042 


.WORD 


<XFER^CNT-HEAD> 




CLEAR XFER MM 


.8YTE 


*0250 ! A " 


.BYTE 


"062 


.WORD 


<XFER_MM-HEAD> 




IFMBl WCS VALUE, MM 


.BYTE 


*072 


.WORD 


<WCS VALUE-HEAD> 


.BYTE 


"0345 


.BYTE 


MM OR LS 


.BYTE 


'^0312" 


.WORD 


<2132$-HEAD> 




SET XFER MM 


.BYTE 


^0250 1 A " 


.BYTE 


"04 i <8*A> 


.BYTE 


*062 


.WORD 


<XFER MM-HEAD> 




ENDIF" 




LXI H.WCS ADDRESS 


.ByTc 


<H*8> ! 1 


.8YTE 


<WCS ADDRESS-HEAD>a255 




call" INC WORD R 


.BYTE 


-^0315 


.WORD 


<INC WORD Fk-HEAD> 




call" RFAD WCS R 


.BYTE 


"0315 " ■ 


.WORD 


<READ WCS R-HEAD> 



;SAVE POINTER FOR READ 



;READ FIRST DATA WORD(COUNT) 



;wi th A 



;NUMBER OF BYTES TO XFER 



;SET TRANSFER TO LS TO START 



;with A 



; TRANSFER IS TO MM, SET FLAG 



.-GENERATE LCL 2132 NAME 



«WCS_ADDRE55-HEAD>&'^XFF00>/256 



;READ DEST ADDRESS 



7Z-ENKAB"1,5 
-MAIN, 



.^lAlN 





19CF 


A517 


21 


19CF 




OO'BA* 


19D0 






19D2 


A518 


11 


19D2 




05*8F» 


19D3 






19D5 


4519 


CD 


19D5 




0F5F' 


19D6 






19D8 


A520 




19D8 


A521 


?1 


19D8 




00*8^' 


19D9 






i9De 


A522 


11 


19D8 




00*AA' 


19DC 






19DE 


A523 




19DE 


A524 


CD 


19DE 




0F5F' 


19DF 






19E1 


A525 


AF 


19F1 






19E2 


4526 


52 


19E2 




00A9* 


19E3 






19E5 


4527 




19E5 


4528 


3A 


19E5 




0592' 


19E6 




OF 


19E8 




D2 


19E9 




19Fr 


19EA 






19EC 


4529 




19EC 


4530 


05 3E 


19EC 






19EE 


4531 


CD 


19EE 




1U6* 


19EF 






19F1 


4532 




19F1 


4533 




19F1 






19F1 


4534 




19F1 


4535 


2A 


19F1 




006C' 


19F2 






19FA 


4536 


22 


19FA 




0593' 


19F5 






19F7 


4537 




19F7 


4538 


AF 


19F7 




5C 


19F8 




32 


19F9 




03AF ' 


19FA 
19FC 




3A 


19FC 




03AF' 


19FD 





2133$ 



4003$ 



.BYTE 
.BYTE 

.BYTE 
.BYTE 

■ BYTE 
.WORD 



.8YTE 
.BYTE 

.BYTE 
.BYTE 



.BYTE 
.WORD 

.BYTE 

.8YTE 
.WORD 



.BYTE 
.WORD 
.BYTE 
.BYTE 

.WORD 



.BYTE 

.8YTE 
.WORD 
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LXl H,WCS VALUE 

<H*8> ! ■* 

<WCS VALUE"HEAD>&255 

LXl ■ O.XFER DEST 

<D*8> ! 1 

<XFER DEST-HEAD>&255 

CALL " MOVER 3 R 

^0315 

<MOVER 3 R"HEAD> 



LXl H.WCS VALUE 

<H*8> ! 1 

<WCS VALU£-HEAD>&255 

LXl " D,DATA1 

<D*8> ! 1 

<DATA1-HEAD>&255 



«WCS VALUE-HEAD>&''XFF00>/256 



«XFER DEST-HEA0>&*XFF00>/256 
" ;SAVE DEST ADDRESS 



;SAVE DEST ADDRESS IH DATA 

«WCS VALUE-HEAD>&*XFF00>/256 

;AREA FOR WRITE TO LS ON 



CALL MOVER 3 R 

*0315 

<MOVER 3 R-HEAD> 

XRA "' I 

^^0250 ! A 

STA DATAO 

^062 

<DATAO"HEAD> 

IF XFER MM 

"072 

<XFER MM-HEAD> 

"017 " 

*0322 

<2133$-HEAD> 

MVI A,LS 5 

<A*8> I 6 , CS 5&255 
CALL WRITE CS R 

"0315 " " 

<WRITE_LS_R-HEAD> 

ENDIF 



«DATA1-HEAD>6"XFFO0>/256 
;MM XFER 



;w1th A 



;ZERO OUT TOP BYTE 



;LS ADDRESS TO WRITE 
;WITH MM ADDRESS 

; GENERATE LCL 2133 NAM^: 





LHLD WCS ADDRESS 


.BYTE 


"052 


.WORD 


<WCS ADDRESS-HEAD> 




SH' D" XFER PNT 


.BYTE 


"042 


.wor^D 


<XFER.PNT-HEAD> 




WHILER MORE DATA 


.BYTE 


"0250 ! A 


.BYTE 


"04 : <8*A> 


.BYTE 


"062 


.WORD 


<MORE DATA-HEAD> 


LDA 


MORE CATA 


.BYTE 


"072" 


.WORD 


<MORE DATA-HEAD> 



;with A 



;LOOP CONTROL BYTE 



ZZ-ENKAB-1.5 .MAIN 
.MAIN. 



OF 


19FF 




.8YTE 


"017 


D2 


1A00 




.8YTE 


"0322 


1A28' 


1A01 




.WORD 


<2134$-HEAD> 




1A03 


4539 




CALL FOUR BYTES 


CD 


1A03 




.8YTE 


"0515 


1A29' 


1A0A 

1A06 


AS'^O 


.WORD 


<FOUR^BYTES-HEAD> 




1A06 


4541 




IF XFER MM 


5A 


1A06 




.BYTE 


"072 


0592' 


1A07 




.WORD 


<XFER MM-HEAD> 


OF 


1A09 




.BYTE 


"017 ■ 


D? 


1A0A 




.BYTE 


"0322 


1A1B' 


lAOe 




.WORD 


<2135$-HEAD> 




1A0D 


4542 




MVI A,LS 6 


06 3E 


1A0D 




.BYTE 


<A*8> ! 6 , LS 68255 




1A0F 


4543 




CALL WRITE LS R 


CD 


1A0F 




.BYTE 


"0315 " ■ 


1U6' 


1A10 




.WORD 


<WR1TE.LS_R--HEAD> 




1A12 


454^ 








1A12 


4545 




LXI H,WCS DE MM 


21 


1A12 




.BYTE 


<H*8> ! 1 


00 5A 


1A13 




.BYTE 


<WCS DE MM-HEAD>6255 , «WC.S 




1A15 


4546 




CALL" "EXEC SUB 


CD 


1A15 




.BYTE 


"0315 


087D' 


1A16 

1A18 


4547 


• WORD 


<EXEC.SUB-HEAD> 




1A18 


4548 




ELSE 


C3 


1A18 




.BYTE 


"0303 


1A25' 


1A19 
1A18 
1A18 


2135$: 
4549 


.WORD 


<2156$-HEAD> 




1A18 


4550 




LDA XFER DEST+2 


3A 


1A18 




.BYTE 


"072 


0591' 


1A1C 




.WORD 


<XFER DEST+2-HEAD> 




1A1E 


4551 




CALL " WRITE LS R 


CD 


1A1E 




.BYTE 


"0315 " ■ 


1U6' 


1A1F 




.WORD 


<WRITE_LS_R-HEAD> 




1A21 


4552 








1A21 


4553 




LXI H,XFER DEST+2 


21 


1A21 




.BYTE 


<H*8> ! 1 


05*91' 


1A22 




.BYTE 


<XFER DEST+2-HEAD>&255 . «X 




1A2^ 


4554 




INR ■ M 


3A 


1A2^ 
1A25 


4555 


.BYTE 


"04 ! <8*M> 




1A25 


4556 




ENDIF 




1A25 


2136$: 








1A25 


4557 








1A25 


4558 




ENDWHILE 


C3 


1A25 




.BYTE 


"0503 


19FC* 


1A26 
1A28 
1A28 


2134$: 
4559 


.WORD 


<4003$-HEAD> 




1A28 


4560 




RET 


C9 


1A28 

^A29 
1A29 
1A29 


4561 
4562 
4563 


.BYTE 


"0511 
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;READ LONG WORD OF DATA (WCS) 



140 
<1) 



;LS DATA TO WRITE 
;WITH DATA FOR MM 



«WC.S_DE MM-HEAD>&"XFF00>/256 
";D0 THE SUBROUTINE 



; GENERATE LOCAL SYMBOL NAME 
;ADDRESS TO WRITE IN LS 



;INC DEST POINTER FOR LS 

«XFER DEST+2"HEAD>S"XFF00>/256 
';WRITE(MM IS AUTOMATIC) 



;6ENERATE lCL 2136 NAME 



.•GENERATE LCL 2134 NAME 



f 



IZZ-ENKAB-1.5 
.MAIN. 



.MAIN 



CD 
1A4E' 

22 
OOAB' 



CD 
1AAE* 

22 
00A9* 



21 
05'8D* 

CD 
128C* 



21 

05'8D' 

11 
05'96' 
Q2 OE 
CD 
OOCF' 
».-2 
1A4D' 



AF 
32 
03AF* 



C9 



21 



1A29 

1A29 

1A29 

1A29 

1A29 

1A29 

1A29 

1A29 

1A29 

1A29 

1A29 

1A29 

1A2A 

1A2C 

1A2C 

1A2D 

1A2F 

1A2F 

1A2F 

1A30 

1A32 

1A32 

1A33 

1A35 

1A35 

1A35 

1A36 

1A38 

1A38 

1A39 

1A3B 

1A3B 

1A3B 

1A3C 

1A3E 

1A5F 

1A41 

1A^3 

1A4A 

1AA6 

1AA7 

1AA9 

1AA9 

1A';9 

lA'i.A 

lAAB 

1AAD 

1AAD 

1AAD 

1AAD 

1AAD 

lA^O 

1AAE 

1AAE 

lA^E 

lA^E 

lA^E 



4564 
4565 
4566 
4567 
4568 
4569 
4570 
4571 
4572 
4573 
4574 



4575 



4576 
4577 



4578 



4579 
4580 



4581 



4582 
4583 
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****************************************************************************** 

FOUR BYTES 

THIS'ROUTJNE READS FOUR BYTES OF DATA FROM WCS USING XFER.PNT 

THE DATA IS MOVED TO THE OATA0J,2,3 AREAS. IF THE COUNT XFER.CNT 

RUNS OUT THE LOOP CONTROL FLAG MORE.DATA IS CLEARED 

****************************************************************************** 



141 
(1) 



4584 
4585 



4586 
4587 

4588 
4589 

4590 
4591 
4592 
4593 



FOUR BYTES; 

.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.WORD 



.BYTE 
.BYTE 
.WORD 



2137$: 



.BYTE 



READ_WCS,DATA: 
.BYTE 



CALL READ WCS DATA 

^^031 5 " ■ 

<READ WCS DATA-HEAD> 

SHLD ' DSTA2 

^^042 

<DATA2-HEAD> 

CALL READ WCS DATA 

*0315 " ■ 

<READ WCS DATA-HEAD> 

SHLD ■ DSTAO 

*042 

<DATA0-HEAD> 

LXI H,XFER CNT 

<H*8> ; 1 

<XFER CNT-HEAD>S255 , 

CALL " DECR WORD R 

*0315 

<DECR WORD R-HEAD> 



;GET 2 BYTES OF DATA 



;GET 2 BYTES OF DATA 



«XFER CNT-HEAD>&'^XFF00>/256 



IFEQ XFER CNT, ZERO WORD, 2 

<H*8> ; 1 

<XFER CNT-HEAD>&255 

<D*8>": 1 

<ZERO WORD-HEAD>&255 

<C*8>"! 6 , 2^255 

'^0315 

<COMPARE-HEAD> 

*O302 

<2137$-HEAD> 



«XFER_CNT-HEAD>&*XFF00>/256 
«ZERO.WORD-HEAD>&''XFF00>/256 



CLEAR MORE DATA 
^^0250 ! A ■ 
"062 
<MORE_DATA-HEAD> 

ENDIF 



RET 
"0311 



LXI i^XFER PNT 

<H*8> ! 1 



;with A 



;6ENERATE LCL 2137 NAME 



;INC POINTER AND READ DATA 



ZZ-ENKAB-1.5 -MAIN 


* 






.MAIN. 










05'93* 


1AAF 








1A51 


A59A 




CD 


1A51 






12B1' 


1A52 








1A5A 


A595 




2A 


1A5A 






0593* 


1A55 








1A57 


i,59t 




22 


1A57 






006C* 


1A58 








1A5A 


4597 




CD 


1A5A 






0E6D* 


1A5B 








1A5D 


4598 






1A5D 


4599 




2A 


1A5D 






00B5' 


1A5E 


■ 






1A60 


4600 




C9 


1A60 








1A61 


4601 






1A61 


4602 






1A61 


4603 






1A61 


4604 






1A61 


4605 






1A61 


4606 






1A61 


4607 






1A61 


4608 






1A61 


4609 






1A61 


4610 






1A61 


4611 






1A61 


4612 




CD 


1A61 






ori9' 


1A62 








1A64 


4613 




21 


1A6A 






00'C2* 


1A65 








1A67 


4614 




11 


1A67 






OO'CC 


1A68 








1A6A 


4615 




CD 


1A6A 






0F5F' 


1A68 








1A6D 


4616 






1A6D 


4617 




21 


1A6D 






06*6A' 


1A6E 








1A70 


4618 




CD 


1A70 






12F2' 


1A71 








1A73 


4619 






1A73 


4620 




21 


1A73 






OO'CC 


1A74 








1A76 


4621 




11 


1A76 






00'C2' 


1A77 








1A79 


4622 


: 
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«XFER PNT-H£AD>&*XFF00>/256 
;T0 TRANSFER TO WCS 



142 ; 

(1) 



.BYTE 


<XFER PNT-HEAD>&255 




CALL " INC WORD R 


.BYTE 


*0315 


.WORD 


<INC WORD R-HEAD> 




LHLD" XFER PNT 


.BYTE 


*052 


• WORD 


<XFER PNT-HEAD> 




SHLD " WCS ADDRESS 


.BYTE 


*042 


.WORD 


<WCS ADDRESS-HEAD> 




CALL READ WCS R 


.BYTE 


^031 5 


.WORD 


<read.wcs.r-head; 




LHLD WCS VALUE+1 


.BYTE 


*052 


.WORD 


<WCS VALUE+1"HEAD> 




RET 


.BYTE 


*0311 



;HI6H VALUE 



****************************************************************************** 
CLEAR CPU ATT R 

THIS Routine Pxecutes an instruction in the csr that clears 

BOTH CPU ATTENTION AND CPU ACKNOWLEDGE 



CLEAR_CPU_ATT_R: 

• BYTE 
.WORD 

.BYTE 
.BYTE 

.BYTE 
.BYTE 

.BYTE 
.WORD 



CALL LOAD UPC R ;SAVE UPC IN ATT^UPC.SAVE 

*0315 " " 

<LOAD UPC R-HEAD> 

LXI " HTUPC VALUE 

<H*8> I 1 

<UPC VALUE-HEAD>&255 , «UPC VALUE-HEAD>&*XFF00>/256 

LXI " D.ATT UPC SAVE 

<D*8> 11 " ~ 

<ATT UPC SAVE-HEAD>&255 

CALL" Rover 3 r 

*0315 

<MOVER 3 R-HEAD> 



.BYTE 
.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
• BYTE 



«ATT,UPC_SAVE-HEA0>a*XFF00>/256 

;ADDRESS OF INSTRUCTION 
«X_CLR_CPU.ATT-HEAD>&*XFF00>/256 



LXI H,X CLR CPU ATT 

<H*8> I 1 

<X CLR CPU ATT-HEAD>&255 

CACL " PERFORM CSR R 

^031 5 

<PERF0RM_CSR.R-HEAD> 

LXI H,ATT UPC SAVE 

<H*8> ! 1 

<ATT UPC SAVE-HEAD>&255 

LXI ■ 15, UPC VALUE 

<D»8> ! 1 

<UPC VALUE-HEAD>&255 , «UPC VALUE-HEAD>S'^XFFO0>/256 

CALL" MOVER 3 R 



«ATT UPC_SAVE-HEAD>&*XFF00>/256 



22-ENKAB-1.5 

.MAIN. 



.MAIN. 
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CD 
0F5F' 

CD 
0F19' 



C9 



21 
OAMF' 

11 
08*C9' 

07 OE 

CD 
0F75* 



21 
08*CA' 

11 
A1 07 

06 OE 

CD 
OF 75' 



21 
02'EB' 

11 
41 OD 

CD 
OF 73' 



Af 
32 



1A79 

1A7A 

1A7C 

1A7C 

1A7D 

1A7F 

1A7F 

1A7F 

1A80 

1A80 

1A80 

1A80 

1A80 

1A80 

1A80 

1A80 

1A80 

1A80 

1A80 

1A80 

1A80 

1A80 

1A8i 

1A83 

1A83 

1A84 

1A86 

1A86 

1A88 

1A88 

1A89 

1A8B 

1A8B 

1A8B 

1A8C 

1A8E 

1A8E 

1A8F 

1A91 

1A91 

1A93 

1A95 

1A9A 

1A96 

1A96 

1A96 

1A97 

1A99 

1A99 

1A9A 

1A9C 

1A9C 

1A9D 

1A9F 

1A9F 

1A9F 

1AA0 



4623 



4624 
4625 

4626 
4627 
4628 
4629 
4630 
4631 
4632 
4633 
4634 
4635 
4636 
4637 
4638 



4639 

4640 
4641 



4642 
4643 



4644 

4645 
4646 



4647 
4648 



4649 
4650 



4651 
4652 



COAD UFC R 



.BYTE *0315 

.WORD <M0VER_3_R-HEAD> 

CALL 
.BYTE *0315 
.WORD <LOAD.UPC_R-HEAD> 

RET 
.BYTE *0311 

****************************************************************************** 

LOAD SECTION 

THIS ROUTINE LOADS A SECTION INTO WCS OR INTO CONSOLE RAM 

IF THE LOAD IS TO WCS A FLAG IS SET AND THE DATA TRANSFER BRANCH 

AT ADDRESS OF THE WCS IS TAKEN. 

****************************************************************************** 



MOV LOAD SECTION: 

LXI 
.BYTE 
.BYTE 



.BYTE 
.BYTE 

.BYTE 

.BYTE 
.WORD 

LOAD SECTION: 
.BYTE 
.BYTE 

• BYTE 
.BYTE 

.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
.BYTE 

.BYTE 
.WORD 



H,TEMP FLAG 
<H*8> ! 1 

<TEMP FLA6-HEAD>6255 . 
LXI " D,SECTI0N^FLA6 
<D*8> ! 1 

<SECTION FLAG"HEAD>&255 , 
MVI C.SEC LEN+1 
<C*8> I 6 , SEC LEN+16255 
CALL MOVER R" 
^^0315 
<MOVER R-HEAD> 



;POINTER TO TEMP SECTION BUFFER 

«TEMP FLAG-HEAD>£*XFF00>/256 

" ;POINTER TO SECTION BUFFER 

, «SECTION FLAG-HEAD>&*XFF00>/256 
; COUNT 

;M0VE ENTRIES TO LOCAL BUFFER 



LXI H, SECTION NAME 

<H*8> • 1 

<SECTICM NAME"HEAD>&255 

LXI P^SEC PARMB NAM 

<D*8> ! 1 " 

<SEC PARMB NAM-HEAD>S255 

MVI *■ CSEC LEN 

<C*8> ! 6 , SEC LEN6255 

CALL MOVER R 

*0315 

<MOVER R"HEAD> 



«SECTION NAME"HEAD>S'^XFF00>/256 



«sec parmb nam-head>r*xff00>/256 
Tmove Section name to tu58 

.•parameter block 



;M0VE EXT TO PARM BLOCK 



LXI H,EXT,A 

<H*8> ! 1 

<EXT A-HEAD>&255 , «EXT A-HEAD>&*XFF00>/256 

LXI " D.SEC PARMB EXT 

<D*8> ! 1 

<SEC PARMB EXT-HEAD>&255 , «SEC.PARMBJXT-HEAD>&*XFF00>/256 

CALL" MO\/ER 4 R 

*0315 

<HOVER 4 R-HEAD> 



.BYTE 
.BYTE 



CLEAR 
*O250 
*062 



SEC PARM8 ADD+2 

A ;with A 



ZZ-ENKAB-1.5 
.MAIN. 



.MAIN. 



A113 


1AA1 






1AA3 


4653 


AF 


1AA3 




32 


1AAA 




^1U 


1AA5 






1AA7 


A65A 




1AA7 


4655 


AF 


1AA7 




32 


1AA8 




02FC' 


1AA9 






1AAB 


4656 


AF 


1AAB 




32 


1AAC 




05 88' 


1AAD 






1AAF 


4657 


AF 


1AAF 




32 


1AB0 




0255' 


1AB1 






1AB3 


4658 




1AB3 


4659 


3A 


1AB3 




08C9' 


1ABA 




E6 


1AB6 




80 


1AB7 




CA 


1AB8 




1AC6' 


1AS9 






1ABB 


4660 




1ABB 


4661 


06 3E 


1AB8 






1ABD 


4662 


32 


1ABD 




015 


1ABE 






1AC0 


4663 


21 


1AC0 




70 00 


1AC1 






1AC3 


A664 




1AC3 


4665 


C3 


1AC3 




1ACE' 


1ACA 
1AC6 






1AC6 


4666 




1AC6 


4667 


07 3E 


1AC6 






1AC8 


4668 


32 


1AC8 




A115 


1AC9 






1ACB 


4669 


21 


1AC8 




00 00 


1ACC 






lACE 


4670 




1ACE 


4671 




1ACE 






1ACE 


4672 




1ACE 


4673 


22 


1ACE 




A111 


1ACF 






1A[)1 


4674 



2138$ 



2139$ 



.WORD 

.BYTE 
.BYTE 
.WORD 



.BYTE 
.BYTE 
.WORD 

.BYTE 
.BYTE 
.WORD 

.BYTE 
.BYTE 
• WORD 



.BYTE 
.WORD 
.BYTE 
.BYTE 
.BYTE 
.WORD 



.BYTE 

.BYTE 
.WORD 

.BYTE 
.BYTE 



.BYTE 
.WORD 



.BYTE 

.BYTE 
.WORD 

.BYTE 
.BYTE 



.BYTE 
.WORD 
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<SEC PARM6 ADD+2-HEAD> 

CLEAR SEf PARMB ADD+3 

*O250 1 A " 

*062 

<SEC PARMB ADD+3-HEAD> 



FAST WRITE 
A 



CLEAR 

*O250 ! 

*062 

<FAST WRITE-HEAD> 

CLEAR" WCS LOADED 

*O250 J A ■ 

*062 

<WCS L0ADED"HEAD> 

CLEAR CONSOLE TEST 

*O250 I A 

^062 

<C0NS0LE TEST-HEAD> 



;with A 



;with A 



;w1th A 



;with A 



;CLR MOST SIG. 28YT£S(UNUSED) 



IFMBI SECTION FLAG. CON RAM 

*072 

<SECTION FLAG"HEAD> 

^0346 ' 

CON RAM 

*03T2 

<2138$-HEAD> 

MVl A, 6 

<A*8> ! 6 , 6B255 

STA SEC PARMB DST 

-^062 

<SEC PARMB DST-HEAD> 

LXI ■ H,RAM LOAD ADD 

<H*8> I 1 

<RAM„LOAD,ADD-HEAD>&255 

ELSE 

•^0303 

<2139$-HEAD> 



MVI A, 7 

<A*8> ! 6 , 7&255 

STA SEC PARMB DST 

*062 

<SEC PARMB DST-HEAD> 

LXI " H,QCS LOAD ADD 

<H*8> I 1 

<WCS_LOAD_ADD"HEAD>&255 

ENDIF 



; DRIVER HAS 6 = RAM LOAD 
;STORE IN DESTINATION CODE 

«RAM LOAD ADD-HEAD>a'^XFF00>/256 



GENERATE LOCAL SYMBOL NAME 
DRIVER HAS 7 = WCS LOAD 
STORE IN DESTINATION CODE 



SHLD SEC PARMB ADD 

*042 

<SEC PARMB ADD"HEAD> 



«WCS.LOAD_ADD-HEAD>S''XFF00>/256 

;GENEPATE LCL 2139 NAME 

; STORE LOAD AODR IN PARM BLOCK 



ZZ-ENKAB-1.5 
.MAIN. 



.MAIN. 



3A 
A150 



52 
4106 



CD 
A117 

A7 D3 



3A 
A116 
FE 
00 
CA 
1AF5' 



AF 
3^ 
02FC' 

AF 
32 
058B' 

AF 
32 

02EA' 

25 06 

C3 
0CA5* 



AF 
3C 
32 
OZFD' 



3A 
08C9" 

E6 
80 
CA 
180A' 



1AD1 

1AD1 

1AD2 

1ADA 

1AD4 

1AD4 

1AD5 

1A07 

1AD7 

1AD7 

1AD8 

1ADA 

1ADA 

1ADC 

1ADC 

1ADC 

1ADC 

1ADD 

1ADF 

1AE0 

1AE1 

1AE2 

1AE4 

IAEA 

IAEA 

1AE5 

1AE6 

1AE8 

1AE8 

1AE9 

IAEA 

1AEC 

1AEC 

1AED 

1AEE 

1AF0 

1AF0 

TAF2 
1AF3 
1AF5 
1AF5 
1AF5 
1AF5 
1AF5 

1AF6 
1AF7 

1AF8 
UFA 
1AFA 
1AFA 
1AF8 
1AFD 
1AFE 
1AFF 
1800 
180? 



A675 



A676 
A677 



A678 
A679 



A680 

A681 
A682 
A683 



A68A 
A685 



A686 

A687 

A688 
A689 

A690 

A691 
A692 



A693 
A69A 



21A0$ 



A695 



.8YTE 
• WORD 



.8YTE 
.WORD 



.BYTE 
.WORD 

.BYTE 



.BYTE 
• WORD 
.BYTE 
.BYTE 
.BYTE 
.WORD 



.BYTE 
.BYTE 

.WORD 

.BYTE 
.BYTE 
.WORD 

.BYTE 
.BYTE 
.WORD 

• BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
,WURD 



.BYTE 
.WORD 
.BYTE 
.BYTE 
.BYTE 
• WORD 
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LDA SEC PARM8 TEF 

*072 

<SEC_PARM8_DEF-HEAD> 

STA SEC PARM8 UNIT 

-^062 

<SEC_PARM8^UNIT-HEAD> 

CALL TU58 DRIVER 

*0315 

<TU58 [)RIVER-HEAD> 

OUT ■ DISMEM 

*0323 , DISMEMS255 



IFNEQI SEC PARM8 ERR^O 

"072 

<SEC PARMB ERR-HEAD> 

^^0375 



*0312 

<21A0$"HEAD> 



;GET DEFAULT TU58 UNIT (THIS 



; UNIT) 

;PARM BLOCK ADDRESS FOR UNIT 



;GET THE FILE 



;DISA8LE MEM REF (TU58 DRIVER 
; regi ster A 

; ENABLED IT AFTER LOAD) 

; CHECK FOR TU58 ERROR 



FAST WRITE 
A ■ 



CLEAR .- 

^^0250 : A ;with A 

-^06? 

<FAST WfiITE-HEAD> 

CLEAR' WCS LOADED 

''0250 ! A ;w1th A 

-^062 

<WCS LOADED-HEAD> 

CLEAR EXECUTE 

'^0250 I A ;with A 

^062 

<EXECUTE-HEAD> 

MVI B,<^X25> 

<B*8> ! 6 , *X256255 

JMP ERROR ROUTINE NO RET 

^^0303 " " " 

<ERROR ROUTINE NO RET-HEAD> 

ENDIF " 



; ALLOW PARSER TO PROMPT 



SET FILE LOADED 

^^0250 I A 

-'OA ! <8*A> 

*062 

<F1LE LOADED-HEAD> 



;with A 



TU58 ERROR. DON'T RETURN 

GENERATE LCL 21A0 NAME 
SECTION WAS LOADED OK 



SECTION.FLAG,CON_RAM 



IFM8I 

*072 

<SECTION FL\6-HEAD> 

*05A6 " 

CON RAM 

^^0372 

<21A1$-H[AD> 

SET CONSOLE TEST 






Z7-FNKAB-1.5 
.MAIN, 



.MAIN. 



AF 


1B0? 




3C 


1B03 




32 


1B0A 




0255' 


1B05 






1B07 


A696 




1B07 


4697 


C3 


1B07 




1815' 


1B08 

leOA 






1B0A 


4698 


AF 


IBOA 




5C 


1B0B 




32 


1B0C 




058B* 


1B0D 






180F 


4699 


CD 


1B0F 




18AV 


1B10 






1812 


4700 


CD 


1812 




OECA* 


1813 






1815 


4701 




1B15 


4702 




1615 






1815 


4703 




1815 


4704 


C9 


1815 






1816 


4705 




1816 


4706 




1816 


4707 




1816 


4708 




1816 


4709 




1816 


4710 




1816 


4711 




1816 


4712 




1816 


4713 




1816 


4714 




1816 


4715 




1816 


4716 


AF 


1816 




3C 


1817 




52 


1818 




02FC' 


1819 






18)6 


4717 


21 


1818 




06 00 


1B1C 






181E 


4718 


7C 


181E 






181F 


4719 


65 


161F 






1820 


4720 


6F 


1820 






1621 


4721 


22 


1821 




00C2 


1822 






1B2A 


4722 


CD 


1824 




0F19 


1825 
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;w1th A 



2141$: 



.BYTE 


^0250 ! A 


.BYTE 


''04 ! <8*A> 


.BYTE 


^062 


.WORD 


<C0NS0LE_TEST"HEAD> 




ELSE 


.BYTE 


*O303 


.WORD 


<2142$-HEAD> 




SET WCS LOADED 


.BYTE 


*0250 i A 


.BYTE 


^^04 : <8''A> 


.BYTE 


*062 


.WORD 


<WCS L0ADED"HEAD> 




CALL" EXEC rESTO 


.BYTE 


-^0315 


.WORD 


<EXEC TEST0-HEAD> 




CALL " NOP CSR R 


.BYTE 


-^031 5 " ■ 


.WORD 


<N0P CSR R-HEAD> 



; GENERATE LOCAL SYMBOL NAME 



;with A 



2142$: 



.8"TE 



ENDIF 



RET 
*0311 



; GENERATE LCL 2142 NAME 



VERIFY WRITER 

THIS ROUTINE SINGLE STEPS THROUGH THE WRITE DATA 32 MICRO CODE 

AND COMPARES IT TO AN EXPECTED VALUE TABLE 



VERIFY_WRITER: 

.BYTE 
.BYTE 
.8YTE 
.WORD 

.8YTE 
.8YTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 
.WORD 

.BYTE 
.WORD 



SET FAST WRITE ;ERROR WILL CLEAR FAST WRITE 

^0250 : A " ;with A 

*04 : <8*A> 

^^062 

<FAST WRITE-HEAD> 

LXI " H,WCS DA'. 32 ADD 

<H*8> I 1 

<WCS DAT 32 ADD-HEAD>&255 , «WCS.DAT^32.AD0-HEA0>&*XFF00>/256 

MOV " A,H" 

"0100 ! <A»8> ! H 

MOV H,L 

*0100 I <H*8> I L 

MOV L,A 

''0100 ! <L*8> I A 

SHLD UPC VALUE 

*042 

<UPC VALUE-HEAD> 

CALL" LOAD UPC R 

''0315 

<LOAD UPC R-HEAD> 



I 



ZZ-ENKAB-1.5 
.MAIN. 



.MAIN. 





1827 


4723 




1B27 


iil2i^ 


CD 


1827 




OECA* 


1828 






182A 


4725 


21 


1B2A 




09*2V 


1828 






1B2D 


4726 


22 


1B2D 




006F* 


1B2E 






1830 


4727 


A8 D3 


1830 






1832 


4728 




1832 


4729 


21 


1832 




00'55» 


1833 




A6 


1835 




C5 


1B36 




05 3E 


1B37 




11 


1839 
183A 






1B3A 


4730 




1B3A 


4731 


CD 


183A 




12A0' 


1838 






183D 


4732 


CD 


183D 




1873' 


1B3E 






18^0 


4735 




18^0 


4734 


3A 


IBAO 




02FC' 


1BA1 






1BA3 


4735 


B7 


18A5 






^HUi, 


4736 


CA 


18A4 




I87r 


18A5 






18A7 


4737 




1847 


4738 


21 


18A7 




00'55' 


18A8 




55 


184A 




C2 


1848 




183A' 


184C 




CI 


18AE 




70 


184F 






1350 


4739 




185^ 


4740 


AA D3 


1851 






1852 


4741 




1852 


4742 


.0 


1852 




00'55' 


1853 




A6 


1855 




cs 


1B56 




03 11 


1857 




77 


1859 





2143$: 



.BYTE 
.WORD 

• BYTE 
.BYTE 

.BYTE 
.WORD 

.BYTE 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
.WORD 

• BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.8YTE 
.WORD 
.BYTE 
.BYTE 



.8YTE 



.BYTE 

.8YTE 
.BYTE 
.8YTE 
.BYTE 
.BYTE 
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CALL NOP CSR R 
*0315 " " 
<N0P CSR R-HEAD> 
LXI " Fl, WRITE TAB 
<H*8> ! 1 

<WRITE TAB-HEAD>&255 
SHLD ' WRITE TA8 PNT 
■^042 " " 

<WRITE TAB PNT-HEAD> 
OUT " CLRATN 
'^0323 . CLRATN&255 



«WRiTE.TAB-HEAD>&^XFF00>/256 



.•register A 



DO 5 

<H*8> 1 1 
<DOLOOP-HEAD>B255 

*0100 ! <8*8> 1 M 

*0305 ! <8*B> 

<A*8> ! 6 , 5S255 

*0100 ! <M*8> ! A 



«DOLOOP"HEAD>6*XFF00>/256 



MICRO_STEP_CPU_R 



CALL 

*0315 

<MICRO STEP CPU R"HEAD> 

CALL " CHEfK uPC 

'^0315 

<CHECK_UPC-HEAD> 



LDA FAST WRITE 

*072 

<FAST WRITE-HEAD> 

ORA ~ A 

'^0260 ! A 

n LEAVE DO 

*0312 

<LEAVE.DO-HEAD> 

ENDDO 
■'H* R> ' 1 

<DOLOOP-HEAD>&2S5 
'^05 I <8*M> 
*0302 

<2143$"HEAD> 
'^0301 ! <8*8> 
*0100 I <M*8> : B 



;GET FAST WRITE FLAG 

;SET CONDITION CODES 

;LEAVE DO LOOP IF FAST_WRITE 



; CLEAR 
«DOLOOP-HEAD>&^XFF00>/256 



OUT 
''0323 



SETATN 

StTATN&255 



DO 3 

<H*8> 1 1 
<D0L00P-HEAD>S255 

*0100 1 <a*8> ! M 

^0505 I <8*B> 

<A*8> : 6 , 3a255 

'^0100 I <M''8> : A 



;register A 



«DOLOOP-HEAD>&''XFF0O>/256 



ZZ-E:>IKAB-1.5 
.MAIN. 



.MAIN. 



CD 

12A0' 

CD 
1873' 



3A 
02FC' 

B7 

""A 

i87r 



?1 

00'55' 
35 
C2 
185A' 
CI 
70 



C9 
C1 
C9 



CD 
0F19' 

?A 
006F' 



1B5A 
1B5A 
1B5A 

lesA 

1B5B 

1B5D 

1B5D 

1B5E 

1B60 

1B60 

1860 

1B61 

1B63 

1B63 

1B6A 

1B6A 

1B65 

1867 

1667 

1867 

1868 

166A 

1368 

ie6C 

1B6E 

1B6F 

1870 

1870 

1870 

1671 

1871 

1671 

1872 

1872 

1872 

1873 

1875 

1873 

1873 

1873 

1673 

1B73 

1873 

1873 

1873 

1873 

1873 

1873 

1873 

1873 

1873 

1873 

187A 

1876 

1876 

1877 

1879 



A743 
A7A^ 



A745 



47A6 



ii7ii^ 
A7A9 



A750 
A751 



l^i^U%\ 



A752 
A755 

475A 
A755 

A756 
A757 

A758 

A759 

A760 

4761 

A762 

4763 

4764 

4765 

4766 

4767 

4768 

4769 

4770 

4771 

477? 

4773 



4774 



4775 



.BYTE 
■ WORD 

.8YTE 
• WORD 



.BYTE 

.WORD 

.8YTF 

.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
• BYTE 
.WORD 
.BYIE 
.BYTE 
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CALL MICRO STEP CPU R 

*0315 

<MICR0 STEP CPU R-HEAD> 

CALL " CHECK uPC 

"031 5 

<CHECK UPC-HEAD> 



.BYTE 



IDA FAST WRITE 

^072 

<FAST WRnE-HEAD> 

ORA " A 

*0260 I A 

JZ LEAVE DO 

*0312 

<LEAVE_D0-HEAD> 

ENODO 
<H*8> I 1 
<D0L00P-HEAD>S255 
*05 ! <8*M> 
*0302 

<2144$-HEAD> 
*0301 .' <8*B> 
*0100 I <M*8> ! B 

RET 

*0311 



;6ET FAST WRITE FLAG 

;SET CONDITION CODES 

;LEAVE DO LOOP IF FAST_WRITE 



; CLEAR 
«DOLOOP-HEAD>&*XFF00>/256 



LEAVE.DO: 



.BYTE 



.BYTE 



POP 
*0301 

RET 
'^0511 



B 
<8''8> 



;POP STACK SINCE DO-LOOP DID 

; A PUSH 
;AND RETURN 



CHECK UPC: 

THIS Routine compare the upc value from the table and the value in 

THE UPC AV THE TIME IT IS CALLED, 

INPUTCONDITION: 

WRITE, TAB.PNT = POINTS TO THE TABLE VALUE 

OUTPUT CONDITION: 

WRITE. TAB.PNT IS INCREMENTED TO THE NEXT TABLE VALUE 



CHECK UPC: 

" .BYTE 
.WORD 

.BYTE 
.WORD 



CALL LOAD UPC R 

*031S ■ *■ 

<L0A0 UPC R"HEAD> 
LHLD " WRITE TAB PNT 
''052 ■ ■ 

<WRITE TAB PNT-HEAD> 
MOV A,W 



.MAIN. 



.MAIN. 



7E 

3? 
OOCB* 

23 

7E 

52 
OOCA' 

23 

22 
006F' 



21 
OO'CA* 

11 
00'C2' 
02 OE 
CD 
OOCF' 
CA 
189D* 

29 06 

CD 
OCAA' 

AF 
32 
02FC' 



CD 
0F19* 



C9 



1B79 

1B7A 

1B7A 

1878 

1B7D 

1B7D 

1B7E 

1B7E 

1B7F 

1B7F 

1B80 

1B82 

1B82 

1883 

1683 

1B84 

1886 

1886 

1B86 

1887 

1389 

1B8A 

188C 

1B8E 

1B8F 

1891 

1892 

189A 

1B9A 

1896 

1896 

1897 

1899 

1899 

1B9A 

1898 

189D 

1B9D 

ie9D 

189D 
189D 
ie9D 
189E 
18A0 
18A0 
18A0 
18A1 
18A1 
18A1 
18A1 
18A1 
IBAI 
18A1 
18A1 
16A1 
18A1 
18A1 



A776 

^77B 
A779 

A780 
A781 



A782 
^783 



A78^ 
^785 

^786 



4787 
A788 

A789 

4790 



4791 
4792 

4793 
4 794 
4795 
4796 
4 797 
4798 
4 799 

4800 
4801 
4802 
4803 



2145$! 



.BYTE 

.BYTE 
.WORD 

■ BYTE 

.BYTE 

.BYTE 

.WORD 

.BYTE 

.BYTE 

.WORD 



.8YTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.8YTE 
.WORD 

.(.■^YTE 

.BYTE 
.WORD 

.BYTE 
.8YTE 

.WORD 



.BYTE 
.WORD 



.BYTE 
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*0100 
STA 



<A*8> : M 
UPC COMPARE+1 

*062 

<UPC C0MPARE+1-HEAD> 



H 

3 

A,M 

<A*8> I M 

UPC. COMPARE 



I NX 

<H*8> 

MOV 

'^0100 

STA 

*062 

<UPC COMPARE-HEAD> 

INX " H 

<H*8> ! 3 

SHLD WRITE TAB PNT 

*042 

<WRITE TAB PNT-HEAD> 



yPC_C0MPARE,UPC^VALUE.2 

, «UPC_C0MPARE-HEAD>6'^XFFO0>/256 
«UPC_VALUE-HEAD>a*XFF00>/256 



IFNEQ 

<H*8> ! 1 

<UPC COMPARE-HEAD>&255 

<D*8> 1 1 

<UPC VALUE-HEAD>£255 , 

<C*8> I 6 , 2^255 

^^0315 

<COMPARE-HEAD> 

•^0312 

<2145$-HEAD> 

MVI B,<'^X29> 

<B*8> ! 6 , *X29&255 

CALL ERROR ROUTINE 

^0315 

<ERROR ROUTINE-HEAD> 

CLEAR " FAST WRITE 

^0250 ! A " 

"062 

<FAST_WRITE-HEAD> 

ENDIF 



CALL LOAD UPC R 
"0315 " ■ 
<LOAD_UPC.R-HEAD> 

RET 
"0311 



;with A 



;6ENERATE LCL 2145 NAME 



***ir*»»********»*i»*i**ilr* ************************************ ******************* 

EXEC TESTO 

THIS'ROUTINE EXECUTES TEST 7ERQ OF A WCS IMAGE ONLY IF FILE LOADED 
IS SET. TEST ZERO IS CONTINUED EACH TIME A DATA REQUETT IS RETURNED 
WHEN A DATA REQUEST IS NOT RETURNED THEN EXECUTION OF TEST STOPS 

t»ftmi»*«n********w************************************************************* 



EXEC lESTO: 



MVI 



B,<''X2A> 



;ERROR CODE IF WCS NOT LOADED 



Z7-ENKAB-1.5 .MAINi 

.MAIhJ. 











N 12 












14-JUN-1984 ich 


e 1 F 










14-JUN-1984 .6: 


08:17 










14-JUN-1984 15: 


49:51 


A 06 


1BA1 




.BYTE 


<B*8> I 6 , *X2AB255 






18A3 


4804 




CALL CHECK WCS LOADED 




CD 


1BA3 




.BYTE 


*0315 " ■ 




0C2A* 


1BA4 




.WORD 


<CHECK_WCS_LOADED-HEAD> 






18A6 


4805 










1BA6 


4806 










18A6 


4807 




]FN NOJNIT 




3A 


18A6 




.8YTE 


^072 




03BE' 


18A7 




.WORD 


<N01MIT"HEAD> 




OF 


1BA9 




.BYTE 


^^017 




DA 


18AA 




.BYTE 


*0332 




180F' 


1BA8 
1BAD 


4808 


.WORD 


<2146$-HEAD> 






18AD 


4809 




CALL VERIFY WRITER 




CD 


18AD 




.BYTE 


*0315 




1816' 


16AE 
1860 


4810 


.WORD 


<VERIFY_WRITER-HEAD> 






1880 


4811 




CLEAR STARTING UPC 




AF 


1880 




.BYTE 


^^0250 ! A 


;with 


12 


1681 




.BYTE 


^062 




0A07' 


1882 




.WORD 


<STARTING UPC-HEAD> 






1884 


4812 




CLEAR STARTING UPC+1 




AF 


1984 




.BYTE 


*O250 : A 


;with 


12 


1885 




.BYTE 


^062 




0A08' 


1886 
1688 


4815 


.WORD 


<STARTING_UPC+1-HEAD> 






1688 


4814 




WHILER DATA XFER FLG 




AF 


1888 




.BYTE 


*O250 1 A " 


;wi th 


3C 


1889 




.8YTE 


*04 1 <8*A> 




12 


186 A 




.BYTE 


''062 




025E' 


1B88 




.WORD 


<l.ATA XFER FLG"HEAD> 






1B8D 


4004$: 


LDA 


DATA J(FER TLG 




3A 


18BD 




.BYTE 


-^072" 




025E' 


18BE 




.WORD 


<DATA XFER FLG"HEAD> 




OF 


leco 




.BYTE 


*017 ■ 




D2 


1BC1 




.BYTE 


^0322 




I80r* 


18C2 
18C4 


4815 


.WORD 


<2147$-HEAD> 






ISCA 


4816 




CALL START CPU 




CD 


18C4 




.PYTE 


•^0315 




10FF' 


18C5 




.WORD 


<START CPU-HEAD> 






18C7 


4817 




I'ET " TEST ZERO 




AF 


iec7 




.6YTE 


*O250 ! A " 


;with 


3C 


18C8 




.BYTE 


'^04 ! <8*A> 




52 


iec9 




.BYTE 


'^062 




0AA7' 


lecA 




.WORD 


<Tti5T ZER0"HEAD> 






lecc 


4818 




CALL ■ ATTENTION 




CD 


18CC 




.BYTE 


*0315 




1321' 


18CD 




.WORD 


<ArTENTiON"HEAD> 






18CF 


481^^ 




CLEAR TEST_ZERO 




AF 


18CF 




.8YTE 


*O250 1 A 


; w 1 1 h 


32 


18D0 




.BYTE 


^062 




GAA7' 


18DT 




.WORD 


cTEST ZERO"HEAO> 






18D3 


4820 




CALL " RESTORE WR 




■■■D 


:8D3 




.^vrt 


"0?15 




OCOA' 


18Dh 
18D6 


48?^ 


.WURD 


<nESrORE WR-HEAD> 
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;CHECK FOR WCS LOADED SET 



; RETURN IF OK 

;ELSE CHECK NO INIT FLAG 



;CHECK DATA XFER ROUTINE 



;SET TO EXECUTE DATA XFER 



;FLAG SET IF DATA XFER EVENT 



;LOOP STOPS IF NO EVENT 



;SET FOR NO RESTART 



;WAIT FOR CPU ATTENUONS 



l/Z-tS'f-AB-l/; .MAIN. 

I. MAIN. 
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?A 
00C6* 

22 

0407' 



C3 
18BD* 



C9 



AF 
52 
03C?' 

Af 

52 

02FA' 

C9 



09'8A' 

n 

]F*FD' 

AF 
52 
0:58C' 



1BD6 

1BD6 

1B07 

18D9 

18D9 

IBDA 

16DC 

IBOC 

16DC 

18D0 

IBDf 

IBDF 

IBDF 

18DF 

18DF 

leOF 

18DF 

16F0 

ISfO 

18E0 

IBEO 

IBFO 

18E0 

18F0 

18E0 

^8F0 

IBEO 

leEO 

18E0 

1BE1 

18E2 

18E4 

18EA 

1BE5 

18E6 

18E8 

18E8 

16E9 

•:8E9 

1BE9 

18E9 

ieE9 

18E9 

1BE9 

18E9 

1flE9 

ieE9 

ieE9 

18E9 

18EA 

IBEC 

^8EC 

leED 

IBtF 

18EF 

18^0 

18F1 



4822 
4823 



''.824 
4825 



4826 
4827 

4828 
4829 



2147$; 



2146$: 



LHLD UPC SUB 
.eVTE ^052 
.WORD <UPC SUB-HEAD> 

SHLD" STARTING UPC 
.8VTE *042 
.WORD <SiARTIN6.UPC-HEAD> 

ENDWHILE 
.BYTE *0303 
.WORD <4004$*HEAD> 

ENDIF 



;SET FOR CONTINUE AT Hl)^\ ADDR, 



;GENERATE LCL 2147 NAME 
;GcNERATE LCL 2146 NAME 



.BYTE 



RET 

*u3n 



4830 
4851 

4833 
4834 
4835 
4836 
4837 

4838 

4839 SYNTAX ERROR: 



SYNTAX ERROR 

THIS ROUTINE PRINTS "SYNTAX ERROR" 



4840 



4841 



4842 





CLEAR NOT FOUND 


.8VTE 


*O250 1 A 


.BYTE 


*062 


.WORD 


<NOT FOUND-HE AD> 




CLEAR EXECUTE 


.BYTE 


*O250 ! A 


.BYTE 


*062 


.WORD 


<EXECUTE-HEAD> 




RET 


.8YTE 


*03n 



;with A 



;with A 



;PARSER WILL PROMPT FOR COMMAND 



CM*^CKSUM 

THIS ROUTINE CHECJ'.SUMS THE PROGRAM AREA (NOT THE VARIABLE AREA) 

THE CHECKSUM IS LEFT IN NEWSUM 

****** *k)i***********************«********«***t4«*««*«««1k4*«*******««4**«««**** 



4845 
4844 
4845 
4846 
4847 
4848 
4849 
4850 
4851 
4852 

4853 CHECKSUM: LXI H, BEGIN CHECKSUM 

.BYTE <H*8> : 1 

.BYTE <P:GIN CHECKSUM-HEAD>&2S5 , «BECIN CHECKSUM-HEAO>&^XFrOO>/256 

4854 LXI " D.END CHECKSUM 
.BYTE <D*8> : 1 

.BYTE ^END CHECKSUM-HEAD>&255 , <<END CHECKSUM-HEAD>&*XFF00>/256 

4855 CLEAR NEWSUM 

.BYTE *O250 1 A ;with A 

.8*"E *062 

■WORD <NEW5UM"HEA0> 



|ZZ-ENiKAB"1.5 .MAIN. 

I.MAIN. 



3A 

03BC' 

86 
23 

32 

03BC' 

7C 

BA 

C2 
18F3' 

?[) 

BB 

C2 
16F3' 

C9 



AF 
3C 
52 
03D9* 

C9 



CD 
0D18 



18F3 

1BF3 

1BFA 

1BF6 

18F6 

1BF7 

1BF7 

1BF8 

1BF8 

1BF9 

1BF8 

1BFB 

1BFC 

1BFC 

1BFD 

1BFD 

IBFb" 

UGO 

1C00 

1C01 

1C01 

U02 

1C02 

1C03 

K05 

U"05 

1C06 

K06 

1C06 

K06 

U06 

1C0A 

1C36 

U06 

1C06 

K06 

1C06 

1C06 

TC07 

UOS 

1C09 

1C08 

1C08 

KOC 

1C0C 

KOC 

1C0C 

1C0C 

KOC 

KOC 

KOC 

KOC 

ICOr 

KOC 

KOt 

KOC 

KOD 
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A856 IS; 

4857 
4858 
4859 

4860 
4861 
4862 

4863 
4864 
4865 

4866 



4867 
4868 
4869 
4870 
4871 
4872 
4873 
4874 
4875 
4876 
4877 



4873 

4879 

4880 

4881 

4882 

4883 

4884 

4885 

4886 

4887 

4888 

4889 

4890 





LDA NEWSUM 


.BYTE 


'^072 


.WORD 


<NEWSUM-HEAD> 




ADD M 


.BYTE 


''0200 ! M 




INX H 


.BYTE 


<H*8> 1 3 




STA NEWSUM 


.BYTE 


^^062 


.WORD 


<NEWSUM-HEAD> 




MOV A.H 


.BYTE 


*0100 ! <A*8> 




CMP D 


.BYTE 


'^0270 I D 




JN2 1$ 


.BYTE 


*0302 


.WORD 


<1$-HEAD> 




MOV A,L 


.BYTE 


*0100 I <A*8> 




CMP E 


.BYTE 


^^0270 1 E 




JN2 1$ 


.BYTE 


^0302 


.WORD 


<n"HEAD> 




RtT 


.BYTE 


^^0311 



H 



SET PARDONE 

THIS ROUTINE SETS THE FLAG PARDONE SO THAT RE-ENTRANT PARSING 

R0UTi^tS(SUCH AS DJAGNDSE) KNOW THEY HAVE HAVE END OF LINE. 



SET PARDONE: 
.BYTE 
.BYTE 
.BYTE 
.WORD 

.BYTE 



SET PARDONE 

*0250 : A 

•^04 1 <8*A> 

^062 

<PARDONE-HEAD> 

RET 

*0311 



;with A 



POWFR REC 

THIS Routine is branched to on a power recovery 

IT WILL CAi L THE ROM CODE THAT D':*FS POWER UP SEQUENCING AND WILL 
DO AN INITIALIZE IF THERE IS WC- lOr:- LOADED 



POWER REC: CALL POWER SEQ 
" .BYTE *0515 

.WORD <POWER SEQ--HEAD> 



;CALL ROM POWER SEQ ROUTINE 



ZZ"fNKAB'1.5 
.MAIN. 



.MAIN. 



21 
00 00 

28 

7C 

85 

C2 
1C12' 

10 3E 
30 



AF 
3C 
32 
0AB3* 

C3 
1CD2* 



C9 



AF 



1C0F 
UOF 
1C0F 
1C0F 
UOF 
UOF 
UOF 
U10 
U12 
U12 
U13 
U13 

uu 

U15 

U15 

U16 

U18 

U18 

U18 

U1A 

U1A 

U18 

U18 

U18 

UU 

U1D 

U1E 

U20 

U20 

U21 

U23 

U23 

U23 

U23 

U23 

U23 

U23 

U23 

U23 

U23 

U23 

U23 

U25 

U23 

^Q2^ 

^C2^ 

K2^ 
U2A 
U24 
U24 
K2^ 

^:2^ 
^(:2^ 
^c2^ 



4891 
4892 
4893 
4894 
4895 
4896 



4897 
4898 
4899 
4900 



4901 
4902 

4903 

4904 
4905 



4906 



4907 
4908 
4909 
4910 
4911 
4912 
4913 
4914 
4915 
4916 
4917 
4918 
4919 

4920 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 



1$: 



.BYTE 
.8YTE 

.BYTE 

.8YTE 

.BYTE 

.BYTE 
.WORD 

.BYTE 
.BYTE 



.BYTE 
.BYTE 
.BYTE 
.WORD 

.BYTE 
.WORD 
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THE FOLLOWING DELAY LOOP 
IS TO ALLOW AC LOU TO 
SETTLE BEFORE RE-ENABLING 
INTERRUPTS 

INIT COUNTER IN H&L TO 



LXI H,0 

<rt*8> ! 1 

0&255 , <0£'*XFF00>/256 

H 

11 

A,H 

<A*8> I H 

L 

L 

1$ 



DCX 

<H*8> 

MOV 

*0100 

ORA 

*0260 

JNZ 

*0302 

<1$"HEAD> 



MVI A, HEX 10 
<A*8> ! 6 , HEX 10&255 
SIM 
*060 

SET WARM RESTART 

^0250 ! A " 

*04 1 <8*A> 

*062 

<WARM RESTART-HEAD> 

JHP " START UP 

*0303 

<START UP-HEAD> 



;with A 



DECREMENT COUNTER 
GET HIGH BYTE RESULT 
■OR' WITH LOW BYTE 
REPEAT IF NOT 

A GETS A 10(H) 
RESET 7.5 

; INDICATE POWER FAIL RESTART 



TIMER.VEC 

THIS ROUTINE WILL HANDLE A INTERVAL TIMER INTERRUPT IF THE INTERRUPT 
IS NOT MASKED OUT. AT PRESENT, THIS ROUTINE WILL NOT BE ENTERED AND 
DOES NOTHING. THIS ROUTINE WILL BE WRITTEN AT A LATER TIME IF NECES- 
SARY. 



;D0 A RETURN 



TIMER VEC: RET 
" .BYTE *0311 



AUTO.TEST 

THIS ROUTINE WILL HANDLE INSTUCTION FLOW WHILE RUNNING MICMON UNDER 
CUSTOMER RUNABLE DIAGNOSTICS AUTO MODE 

****************************************************************************** 



AUTO TEST: CLEAR lRROR 
" .BYTE ^^0250 ! A 



;wnh A 



ZZ-ENKAB-1.5 
.MAIN. 



.MAIN. 
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(1) 



32 
02E2' 



3A 
03D5* 
OF 
D2 
1CA7' 

21 
03'F2' 

11 
08'Dr 

OC OE 

CD 
OF 75* 



21 
OB'DV 

22 
044D* 

AF 
32 
03D5* 



C3 
1CCA' 



2A 
0345' 

7E 

IF 



D2 
1C57' 

AF 
3C 
32 

03F0* 

C3 
1C5B* 



U25 

1C26 

1C28 

1C28 

1C28 

1C29 

1C2B 

1C2C 

1C2D 

1C2F 

1C2F 

1C30 

1C32 

1C32 

1C33 

1C35 

1C35 

1C37 

1C37 

1C38 

1C3A 

1C3A 

1C3A 

1C3B 

1C3D 

1C3D 

1C3E 

1C40 

1C40 

1C41 

1C42 

1C44 

1CA4 

1C44 

1C45 

UA7 

1C47 

1C47 

1C48 

1C4A 

1C4A 

1CAB 

1C48 

1C4C 

1C4C 

1C4C 

1C40 

1C4F 

1CAF 

1C50 

1C51 

1C52 

1C54 

1C54 

1C55 

1C57 

K57 



4931 
4932 



4935 



4934 



4935 
4936 



4937 
4938 



4939 



4940 



4941 
4942 



4943 



4944 

4945 

4946 
4947 



4948 



4949 



4950 



2148$: 



2150S: 



.BYTE 
.WORD 



.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 

.BYTE 
■ BYTE 

.BYTE 
.BYTE 

.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
• WORD 

.BYTE 
.BYTE 
.WORD 



.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 

RVTF 



.BYTE 
.WORD 

.BYTE 
.BYTE 
.BYTE 
.WORD 

.BYTE 
.WORD 



'^062 
<ERROR-HEAD> 

IF PACK ERROR 

*072 

<PACK ERROR-HEAD> 

^^017 ■ 

*0322 

<2148$-HEAD> 

LXI H, RETRY IDC2 

<H*8> I 1 

<RETRY IDC2-HEAD>&255 

LXI *■ D.TTBUF 

<D*8> ! 1 

<TTBUF-HEAD>&255 , 

MVI CJ2 

<C*8> I 6 , 12&255 

CALL MOVER R 

*0315 

<MOVER R"HEAD> 



;IF WRONG RL02 PACK WAS FOUND 



; THEN RESTART TEST 

«RETRY JDC2-HEAD>£*XFF00>/256 

■;M0VE INSTRUCTION INTO TTBUF 



«TT8UF-HEAD>&*XFF00>/256 



LXI H, TTBUF 

<H*8> ! 1 

<TTBUF-HEAD>&255 

SHLD TTBUF PNT 

*042 

<TTBUF PNT-HEAD> 

CLEAR " PACK ERROR 

*O250 ! A 

*062 

<PACK_ERROR"HEAD> 

ELSE 

^0303 

<2149$-HEAD> 

LHLD INSTR PNT 

^^052 

<INSTR PNT-HEAD> 

MOV " A,M 

*0100 ! <A*8> I M 

PAR 

IFC 

*0322 

<2150$"HEAD> 

SET PRINT START 

*O250 ! A 

*04 ! <8*A> 

*062 

<PRINT START-HEAD> 

ELSE " 

^^0303 

<2151$-HEAD> 

CLEAR PRINT. START 



;IN1T TTY BUFFER POINTER 
«TTBUF-HEAD>&*XFF00>/256 

;with A 



;with A 



; GENERATE LOCAL SYMBOL NAME 
;MOVE FIRST BYTE OF INSTRUCTION 



; TO A 

;ROTATE FIRST BIT INTO CARRY 

;BIT SET TELLS TO PRINT 

; 'TESTING STARTED' MESSAGE 



;GENERATE LOCAL SYMBOL NAME 
;BIT CLEAR TELLS TO NOT PRINT 



2Z-ENKAB-1.5 
.MAIN. 



.MAIN. 



AF 


1C57 




32 


1C58 




03F0' 


1C59 






1C58 


4951 




1C5B 






1C5B 


4952 




use 


4953 


2A 


1C58 




03-^5* 


U5C 






1C5E 


4954 


7E 


1C5E 






1C5F 


4955 


IF 


U5F 






1C60 


4956 


IF 


1C60 






U61 


4957 




U61 


4958 


02 


1C61 




1C6C' 


1C62 






1C64 


4959 


AF 


1C6A 




3C 


1C65 




52 


1C66 




03ED' 


1C67 






1C69 


4960 


C3 


1C69 




1C70' 


1C6A 
1C6C 






1C6C 


4961 


AF 


1C6C 




32 


1C6D 




03ED' 


1C6E 






K70 


4962 




1C70 






1C70 


4963 




1C70 


4964 


3A 


1C70 




03F0* 


1C71 




OF 


U73 




D2 


1C7A 




1CA5' 


1C75 






^C?7 


4965 




1C77 


4966 


2A 


1C77 




03eA' 


1C78 






1C7A 


4967 


CD 


1C7A 




100E' 


1C78 






ir7D 


4968 




1C7D 


4969 


21 


1C7D 




0A*29* 


1C7E 






1C80 


4970 


CO 


1C80 




100E' 


1C81 






1C83 


4971 




1C83 


4972 



2151$: 



2152$: 



2153$: 



.BYTE 
.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 

.BYTE 

■ BYTE 



.BYTE 
• WORD 

.BYTE 
.BYTE 
.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
.BYTE 
.WORD 



.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
.BYTE 

.BYTE 
:WORD 
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*0250 
^062 



;with A 



<PRINT START-HEAD> 
ENDIF " 



LHLD INSTR PNT 

*052 

<INSTR PNT-HEAD> 

MOV ■ A,M 

*0100 ! <A*8> 1 M 

RAR 

*037 

RAR 

*037 

IfC 

*0322 

<2152$-HEAD> 

SET PRINT PASS 

^0250 ! A 

*04 ! <8*A> 

*062 

<PRINT PASS-HEAD> 

ELSE 

*O303 

<2153$"HEAD> 



;6ENERATE LCL 2151 NAME 
;LOOK AT SECOND BIT 



;with A 



;BIT 1 SET TELLS TO PRINT 
; 'PASSED' MESSAGE 



PRINT PASS 
A 



CLEAR 

*O250 ! 

*062 

<PRINT PASS-HEAD> 

ENDIF " 



;with A 



IF PRINT START 

*072 

<PRINT START-HEAD> 

*017 " 

*0322 

<2154$-HEAD> 

LHLD NAME PNT 

*052 

<NAME PNT-HEAD> 

CALL " PRINT STRINGER 

*0315 

<PRINT,STRING_R-HEAD> 

LXI HJEST START A 

<H*8> ! 1 

<TEST START A-HEAD>&255 

CALL ■ PRIRT STRING R 

*0315 

<PRINT STRING R-HEAD> 



; GENERATE LOCAL SYMBOL NAME 
;BIT 1 CLEAR TELLS TO NOT PRINT 



;GENERATE LCL 2153 NAME 
;PRINT START OF TEST IF SET 



;PRINT TEST NAME 



LHLD 



TIME PNT 



;PRINT 'TESTING STARTED' 
«TEST_START_A-HEAD>B*XFF00>/256 

;PRINT RUN TIME 



7Z-ENKAB-1.5 
.MAIN. 



.MAIN. 



2A 


1C83 




04^8' 


1C84 






1C86 


A973 


CD 


1C86 




100E' 


1C87 






1C89 


A974 




1C89 


A975 


21 


1C89 




03'8C' 


1C8A 






1C8C 


A976 


CD 


1C8C 




100E' 


U8D 






1C8F 


A977 




1C8F 


A978 


00 06 


U8F 






1C91 


A979 


05 OE 


1C91 






1C93 


-^980 


2A 


1C93 




0AA8' 


1C9A 






1C96 


4981 


09 


1C96 






1C97 


4982 


22 


1C97 




0AA8' 


1C98 






1C9A 


4983 




K9A 


4984 


00 06 


1C9A 






1C9C 


4985 


15 OE 


1C9C 






1C9E 


4986 


2A 


1C9E 




03BA' 


1C9F 






1CA1 


4987 


09 


1CA1 






1CA2 


4988 


22 


1CA2 




03BA* 


1CA3 






1CA5 


4989 




1CA5 


4990 




1CA5 






1CA5 


4991 




1CA5 


4992 


2A 


KA5 




03^5' 


1CA6 






1CA8 


4993 


23 


1CA8 






1CA9 


4994 


71 


1CA9 






1CAA 


4995 


12 


1CAA 




03-^4' 


UA8 






KAD 


4996 




1CAD 


4997 


4F 


UAD 






1CAE 


4998 


23 


UAE 





2154$: 



G 13 
14-JUN-1984 Fuhe 1 Frame 613 Sequence 162 

14-JUN-1984 16:08:17 VAX-11 Macro V03-0T Page 156 

14-JUN-1984 15:49:51 DRB0:CBALL.ENKAeDENKAB.MAC;3 (1) 



.BYTE 


*052 




.WORD 


<TIHE 


PNT-HEAD> 




CALL ■ 


PRINT^STRING.R 


.BYTE 


•^031 5 




.WORD 


<PRINT 


_STRIN6_R-HEAD> 




LXI 


H, MINUTES A 


.BYTE 


<H*8> 


I 1 


• BYTE 


<MINUTES A-HEAD>8255 , 




CALL 


PRINT_STRING_R 


.BYTE 


*0315 




.WORD 


<PRINT 


_STRING_R-HEAD> 




MVI 


B.O 


.BYTE 


<B*8> 


! 6 , 0^255 




MVI 


C,5 


.BYTE 


<C*8> 


! 6 , 5&255 




LHLD 


TIME.PNT 


.BYTE 


*052 




■ WORD 


<TIME 


PNT-HEAD> 




DAD 


B 


■ BYTE 


<B*8> 


! 9 




SHLD 


TIME.PNT 


.BYTE 


*042 




.WORD 


<T1ME, 


PNT-HEAD> 




MVI 


8,0 


.BYTE 


<B*8> 


! 6 , 06255 




MVI 


C,21 


.BYTE 


<C*8> 


! 6 , 2U255 




LHLD 


NAME.PNT 


.BYTE 


*052 




• WORD 


<NAME 


PNT-HEAD> 




DAD ■ 


' B 


.BYTE 


<B*8> 


! 9 




SHLD 


NAME_PNT 


.BYTE 


-^042 




.WORD 


*;NAME 


PNT-HEAD> 



;PRINT 'MINUTES* MESSAGE 
«MINUTES_A-HEAD>&*XFF00>/256 

;P0INT TO NEXT RUN TIME 





L»^LD 


INSTR PNT 


.BYTE 


''05L 




.WORD 


<INSTR 


PNT"HEAD> 




I NX 


■ H 


.BYTE 


<H*8> 


3 




MOV 


A,M 


.BYTE 


*0100 


<A*8> ! M 




STA 


INSTR LEN 


.BYTE 


*062 




.WORD 


<INSTR, 


.LEN-HEAD> 




MOV 


C,A 


.BYTE 


-^0100 


1 <C*8> 1 A 




INX 


!^ 


.BYTE 


<H*8> 


1 5 



;P0INT TO NEXT TEST NAME 



;GENERATE LCL 2154 NAME 

;P01NT TO LENGTH OF INSTRUCTION 

;STORE COUNT IN INSTR.LEN 



; STORE COUNT IN C 

;HL POINTS TO START OF INSTRUCTION 



L„., 



ZZ-ENKAB-1.5 .MAIN 

.MAIN. 





1CAF 


4999 


11 


1CAF 




08'D1' 


1CB0 






1CB2 


5000 


CD 


1CB2 




0F75' 


1CB3 






1CB5 


jOOI 




1C85 


5002 


21 


1CB5 




08'01' 


1CB6 






1CB8 


5003 


22 


1CB8 




Oi*^\)* 


1CB9 






1CB8 


5004 




1CBB 


5005 


00 06 


1C8B 






1CBD 


5006 


3A 


1CBD 




034A' 


1C8E 






KCO 


5007 


C6 


1CC0 




02 


1CC1 






1CC2 


5008 


^F 


1CC2 






1CC3 


5009 


2A 


1CC3 




05^5* 


1CC4 






1CC6 


5010 


09 


1CC6 






1CC7 


5011 


22 


1CC7 




03A5* 


1CC8 






1CCA 


5012 




1CCA 


5013 




1CCA 






UCA 


SOU 




1CCA 


5015 


AF 


1CCA 




3C 


UCB 




32 


ICCC 




03Fr 


1CCD 






ICCF 


5016 


C3 


ICfF 




1DAE' 


1CD0 






1CD2 


5017 



2U9$: 
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LXl DJT8UF 

.BYTE <D*8> ! 1 
.BYTE <TTBUF-HEAD>&255 , 

CALL MOVER R 
.BYTE *0315 
.WOt^D <MOVER_R-HEAD> 

LXl H.TTBUF 
.BYTE <H*8> ! 1 
.BYTE <TTBUF-HEAD>&255 , 

SHLD TT6UF PNT 
.BYTE *0A2 
.WORD <TTBUF,PNT-HEAD> 

HVI B,0 
.BYTE <B*8> ! 6 , 0&255 

LDA INSTR LEN 
.BYTE *072 
.WORD <INSTR LEN"HEAD> 

ADI 2 
.BYTE ''0306 
.BYTE 2 

MOV C,A 
.BYTE *0100 ! <C*8> : A 

LHLD INSTR PNT 
.BYTE *052 
.WORD <INSTR PNT-HEAD> 

DAD B 
.BYTE <B*8> ! 9 

SHLD INSTR PNT 
.BYTE *0A2 
.WORD <INSTR,PNT-HEAD> 

ENDIF 



SET RESTART 

.BYTE *0250 ! A 
.BYTE *0A ! <8*A> 
.BYTE *062 
.WORD <RESTART"HEAD> 

JMP PARSER 

.BYTE *O303 
.WORD <PARSER-HEAD> 



;DE POINTS TO TTBUF 

«TTBUF-HEAD>&*XFF0O>/256 

;MOVE INSTRUCTION INTO TTBUF 



;INIT TTY BUFFER POINTER 
«TT8UF'-HEAD>S*XFF00>/256 

;POINT TO NEXT INSTRUCTION 



;6ENERATE LCL 2149 NAME 



;w1th A 



lZZ-ENKAB-1.5 .MAIN 
.MAIN, 



31 
AO 80 



F3 



CD 
10C9* 

AF 
Z2 
038A' 

AF 
3C 
32 
0354' 



CD 
18F9' 

3A 

03BC' 

32 
03CF* 



21 

AO FD 

FD 3E 
A6 
77 



AF 

32 

^088 



1CD2 

1CD2 

1CD2 

1CD2 

1CD2 

1CD2 

1CD2 

1CD2 

1CD2 

1CD2 

1CD2 

1CD2 

1CD2 

1CD2 

1CD2 

1CD3 

1CD5 

1CD5 

1CD5 

1CD6 

UD6 

1CD6 

1CD7 

1CD9 

ICD9 

UDA 

1CD8 

1CDD 

1CDD 

1CDE 

1CDF 

1CE0 

1CE2 

1CE2 

1CE2 

1CE3 

UE5 

1CE5 

1CE6 

1CE8 

1CE8 

1CE9 

1CEB 

1CE8 

1CE8 

UEC 

1CEE 

1CEE 

UFO 

UFO 

1CF1 

KFl 

1CF2 

1CF2 

UF2 

1CF3 

UFA 



5019 
5020 
5021 
5022 
5023 
5024 
5025 
5026 
5027 
5028 
5029 
5030 
5031 
5032 



5033 
5034 

5035 
5036 



5037 



5038 



5039 
5040 



5041 



5042 



5043 
5044 



5045 

5046 

5047 

5048 
5049 
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****************************************************************************** 

MAIN LIME ROUTINES 

****************************************************************************** 

;**************************A'^** ************************************************ 

; START UP 

; THINGS THAT ARE ONLY DONE AT THE BEGINING 

******************************************************************************* 



158 
(1) 



START-UP: 



.8YTE 
.8YTE 



.8YTE 



.8YTE 
.WORD 

.BYTE 
,8YTE 
.WORD 

.BYTE 
.8YTE 
.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 
.WORD 



.8YTE 

,8YTE 

.BYTE 
.BYTE 
.8YTE 



.BYTE 
.BYTE 

.WORD 



LXI $SP,PRI STACK 

<SSP*8> ! 1 

<PRI STACK-HEAD>&255 



STOP.CPU 



01 

CALL 

^^031 5 

<STOP CPU-HEAD> 

CLEAR' MICRO STEP 

^^0250 ! A 

*062 

<MICR0 STEP-HEAD> 

SET " MEM REO 

^^0250 ! A 

*04 ! <8*A> 

*062 

<MEM_REQ-HEAD> 

CALL CHECKSUM 

^^0315 

<CHECKSUM-HEAD> 

LDA NEWSUM 

*072 

<NEWSUM-HEAD> 

STA OLDSUM 

*062 

<OLDSUM-HEAD> 

LXI H,CRD FLAGS 

<H*8> : 1 

<CRD FLAGS-HEAO>&255 , 

MVI " A, HEX FD 

<A*8> ! 6 , HEX FD&255 

ANA M 

*0240 ! M 

MOV M,A 

*0100 ! <M*8> 1 A 

CLEAR OFlAG 
^0250 ! A 
*062 
<0FLA6-H£AD> 



«PRI_STACK-HEAD>&*XFF00>/256 
.■DISABLE INTERUPTS 

;ST0P CPU IN CASE IT IS RUNNING 

; CLEAR MICRO STEP MODE 



;with A 



;with A 



;ENABLE MEM REQ FOR LATER 



;SAVE CHECKSUM VALUE 



;CLEAR BIT 1 OF CRD.FLAGS TO 

«CRD FLAGS-HEAD>a*XFF00>/256 

; INDICATE CRD HAS STARTED 



;with A 



;ENABLE PRINTOUTS 



ZZ-tNKAB"1.5 .MAIN 

.NIAIN. 
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L 







1CF6 


5050 












1CF6 


5051 




LXI H, VERSION 1 


;PRINT VERSION NUMBER 




21 


1CF6 




.BYTE 


<H*8> 1 1 






06'31' 


1CF7 
1CF9 


5052 


.BYTE 


<VERSJON 1-HEAD>£255 , 

CALL Print string r 


«VERSION_1-HEAD>S*XFF0O>/256 




CD 


1CF9 




.BYTE 


^0315 






100E' 


UFA 




.WORD 


<PRINT string R"HEAD> 








1CFC 


5053 




LXI " H. VERSION 


;PRINT VERSION NUMBER 




21 


1CFC 




.BYTE 


<H*8> I 1 






OA'AF' 


1CFD 




.BYTE 


<VERSI0N"HEAD>&255 , «VERSI0N"HEAD>S'^XFF00>/256 






1CFF 


505A 




CALL PRINT STRING R 






CD 


1CFF 




.BYTE 


*0o15 






100E' 


IDOO 
1D02 


5055 


.WORD 


<PRINT STRING R-HEAD> 
CALL " CRLF R 






CD 


1D02 




.BYTE 


'^0315 






101A' 


1D03 
1D05 
1D05 


5056 
5057 


.WORD 


<CRLF_R-HEAD> 










SET PARITY ON 


;INIT PARITY CALC 




AF 


1D05 




.BYTE 


*0250 ! A 


;with A 




3C 


1D06 




.BYTE 


*0A ; <8*A> 






32 


1D07 




.BYTE 


*062 






006A' 


1D08 




.WORD 


<PARITY ON-HEAD> 








1D0A 


50S8 




CLEAR "CONTINUE 


;INIT CONTINUE FLAG 




Af 


IDOA 




.BYTE 


*0250 : A 


;with A 




32 


1D0B 




.BYTE 


*062 






003A' 


1D0C 




.WORD 


<CONTINUE"F!EAD> 








1D0E 


5059 




CLEAR ERROR 


;1NIT ERROR FLAG 




AF 


1D0E 




.BYTE 


*0250 i A 


;with A 




32 


1D0F 




.BYTE 


*062 






02E2' 


1D10 
1D12 
1D12 


5060 
5061 


.WORD 


<ERR0R-HEAD> 
CLEAR EXECUTE 






AF 


1D12 




.BYTE 


*O250 ! A 


;with A 




32 


1D13 




.BYTE 


-^062 






02EA' 


1DU 




.WORD 


<EXECUTE-HEAD> 








1D16 


5062 




CLEAR WCS BAD PARITY 


;SET FOR GOOD PARITY 




AF 


1D16 




.BYTE 


*0250 ! A " " 


;with A 




32 


1D17 




.BYTE 


''062 






006E' 


1D18 
1D1A 


5063 


.WORD 


<WCS.BAD^PARITY"HEAD> 








1D1A 


506A 




LXI H,X CLR PAGE 


;CLR WCS HIGH PAGE 




21 


1D1A 




.BYTE 


<H*8> 11" 






00'7D' 


1D18 




.BYTE 


<X CLR PAGE-HEAD>B255 


, «X„CLR,PA6E-HEAD>&''XFFO0>/256 






1D1D 


5065 




CACL " PERFORM CSR R 






CD 


1D1D 




.BYTE 


*0315 " " 






12F2' 


1D1E 
1D20 


5066 


.WORD 


<PERFORM_CSR_R"HEAD> 








•.D20 


5067 




ZERO DATAO.A 


.-RESET OUT OF COMPAT, MODE 




21 


1D20 




.BVTE 


<H*8> 1 1 






00'A9' 


1D21 




.BYTE 


<DATA0-HEAD>&255 , «DATA0"HEAD>6'*XFF00>/256 




0/* OE 


1D23 




.BYTE 


<C*8> : 6 , 46255 






AF 


1025 
1D26 


2155$: 


.BYTE 


*O250 ! A 
MOV M,A 


;wi'th A 




77 


1D26 




.BYTE 


'^0100 : <M*8> 1 A 






23 


1027 




.BYTE 


<H*8> ! 3 






CD 


1D28 




.BYTE 


*05 : <8^C> 






C2 


1D?9 




.BYTE 


'^0302 





IZZ-ENKAB-1.5 
.MAIN, 



.MAIN. 
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1026' 


102A 




.WORD 


<2155$- 


HEAD- 






1D2C 


5068 




MVl 


A, HEX FF 




FF 3E 


1D2C 




.BYTE 


<A*8> 1 


6 , HfX FFa255 






1D2E 


5069 




CALL 


WRJTE.LS^R 




Ci) 


1D2E 




.BYTE 


*0315 






1U6' 


1D2F 
1D31 


5070 


.WORD 


<WRITE. 


.LS^R-HEAD> 






1D31 


5071 




SET 


PAR ON 




AF 


1D31 




.BYTE 


^^0250 . 


A " 


;with 


3C 


1D32 




.BYTE 


*04 1 <8*A> 




32 


1D33 




.BYTE 


*062 






03D6' 


1D3^ 




.WORD 


<PAR_0N-HEAD> 






1D36 


5072 












1D36 


5073 




RIM 






20 


1D36 




.BYTE 


^040 








1D37 


507^ 




ORl 


HEX.8 




F6 


1D37 




.BYTE 


^0366 






08 


1D38 




.BYTE 


HEX 8 








1D39 


5075 




OR!" 


HEX.1 




F6 


1D39 




.BYTE 


^0366 






01 


1D3A 




.BYTE 


HEX 1 








1D38 


5076 




ANJ" 


HEX_OD 




E6 


1D38 




.BYTE 


*03A6 






OD 


1D3C 

1D3D 


5077 


.BYTE 


HEX OD 

SIM" 






30 


1D3D 

1D3E 
1D3E 


5078 
5079 


.BYTE 


^060 

EI 






FB 


105E 

1D3F 


5080 


.BYTE 


*0373 








1D3F 


5081 




IF 


WARM_RESTART 




3A 


1D3F 




.BYTE 


^072 






0AB3' 


1DA0 




.WORD 


<WARM f 


RESTART-HEAD> 




OF 


1D^2 




.BYTE 


*017 " 






02 


1D^3 




.BYTE 


*0322 






1D53' 


1D^^ 




.WORD 


<2156$ 


-HEAD> 






1DA6 


5082 




CALL 


write_ls,stat 




CD 


1D^6 




.BYTE 


•^0315 






12DF' 


1D^7 
ID'^9 


5085 


.WORD 


<WR1TE 


.LS.STAT"HEAD> 






1D^9 


508^ 




LDA 


WCS^LOADEO 




3A 


ID*.? 




.BYTE 


^^072 






0588' 


ID^A 




.WORD 


<WCS LOADED-HEAD> 






1DU 


5085 




ORA 


A 




B7 


1DAC 




.BYTE 


*O260 


! A 






1DAD 


5086 




CNZ 


EXEC.TESTO 




CA 


ID^D 




.BYTE 


^030^ 






18A1' 


ID^E 
1D50 

1D50 


5087 
5088 


.WORD 


<EXEC. 

Else 


TESTO-HEAD> 




f3 


1D50 




.BYTE 


*0305 






1D56' 


1D51 
1D53 
1D53 


2156$: 
5089 


,WORD 


<2157$ 


-HEAD'> 






1D53 


5090 




CALL 


CLEAR^DFFAULT 




CD 


1D55 




.BVTE 


'^0515 






088F 


1D.S4 




.WORD 


<CLEAR 


,DEFAULT"HEAD> 





;£NA6LE WCS PARITY FOR LATER 



;SET lNTERRU.'-\'" MASK 



;DISABIE 5.5 INTERRUPT 



;TURN ON II^ERRUPTS 



;IF POWER FAIL RESTART 



;WRITE CURRENT FLAGS IN LS 



; ERROR CONTROL WORD 
;(3ET WCS LOADED FLAG 



;SET CONDITION CODES 

;D0 WCS INIT IF WCS IS LOADED 



;GENERATE LOCAL SYMBOL NAME 
;SET FLAGS TO DEFAULT 



ZZ-ENKAB-1.5 
.MAIN. 



.MAIN 
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21 
C6'7A' 

22 
03A5' 



21 
07' 6F' 

22 
038A' 



21 
08*02' 

22 
04^8' 



C3 
• DAE* 



11 
OA'OE' 



22 

03DC' 

E8 

22 
05DA' 

Ar 



1D56 
1D56 
1D56 
1D56 
1D56 
1D57 
1D59 
1D59 
1D5A 
1D5C 
1D5C 
1D5C 
1D5D 
1D5F 
1D5F 
1D60 
1D62 
1D62 
1D62 
1D63 
1D65 
1D65 
1D66 
1D68 
1D68 

■;d68 

1D69 
1D66 
1D6B 
1D66 
1D6B 
1066 
106B 
1D6B 
1D68 
1D68 
1D6B 
1D6B 
■1D6B 
106B 
1D6B 
1D66 
106B 
1D66 
1D6B 
1D6C 
1D6E 
1D6E 
1D6E 
1D6F 
1D71 
1071 
1072 
1072 
1075 
1075 
1D75 



5091 

5092 
5093 



509A 



5095 
5096 



5097 



5098 
5099 



5100 



5101 
5102 



5103 
510A 
5105 
5106 
5107 
5108 
5109 
5110 
5111 
5112 
5115 
51U 
5115 
5116 
5117 
5118 
5119 



5120 
5121 



5122 
5123 

512A 



2157$; 



ENOIF 





LXI HJNSTR TABLE 


.BYTE 


<H*8> I 1 


.BYTE 


<INSTR TA8LE-HEA0>6255 




SHLD INSTR PNT 


.BYTE 


^0A2 


,WORO 


<INSTR_PNT-HEAO> 




LXI RENAME TABLE 


.BYTE 


<H*8> 1 1 


.BYTE 


<NAME TABLE-HEA0>&255 




SHLO NAME PNT 


.BYTE 


■^042 


.WORO 


<NAME_PNT-HEAO> 




LXI H,TIME TABLE 


.BYTE 


<H*8> I 1 


.BYTE 


<TIME TABLE-HEA0>£255 




SHLO TIME PNT 


.BYTE 


*042 


.WORO 


<TIME,PNT-HEAD> 




JMP PARSER 


.BYTE 


*0303 


.WORO 


<PARSER-HEAO> 



;GENERATE LCL 2157 NAME 
;P01NT TO FIRST INSTRUCTION 
«INSTR.TABLE-HEAD>&*XFF00>/256 

;POINT TO FIRST TEST NAME 
«NAME.TA8LE-HEA0>&''XFF00>/256 

;POINT TO FIRST TEST TIME 
«TlME.TABLE-HEA0>&''XFFOO>/256 



;60 



PAR 

THIS ROUTINE PARSES COMMANOS AND DISPATCHES TO THE ADORESS GIVEN 

INPUT CONDI TONS 

H+L = PARSE NAME TABLE 

EACH ENTRY = LEN,ASC1 I , JMP ADDRESS 
LAST TABLE ENTRY HAS LENTH FF 
D+E = BUFFER TO COMPARE ASCII WITH 



par temp buf : 
Tbyte 

.BYTE 



PAR: 



.BYTE 
.WORD 

.BYTE 

.BYTE 
.WORD 

.BYTE 



LXI JEMP BUF 

<0*8> ! 1 
<TEMP_BUF-HEA0>&255 

SHLD PARSE TABLE 

*042 

<PARSE TABLE-HEAO> 

XCHG 

*0353 

SHLD PARSE PNl 

*042 

<PARSE PNT"HEAO> 

CLEAR " NOT FOUND 

'^0250 : A " 



;P01NTER TO CHAR BUFFER 
«TEMP„BUF-HEAD>8''XFF00>/256 



;wnh A 



;SAVE BUFFER TO COMPARE WITH 
;RESET NOT^FOUND FLAG 



22-ENKAB-1.5 .MAIN. 

.MAIN. 











M 13 










U-JUN-1984 Fiche 1 










U-JUN-198A 16:08: 










U-JUN-1984 15:A9: 


32 


1D76 




.8YTE 


*062 


03C2' 


1D77 
1D79 


5125 


.WORD 


<NOT_FOUND-HEAD> 




1D79 


5126 2$: 




LHLD PARSE PNT 


2A 


1D79 




.BYTE 


*052 


03DA' 


1D7A 




.WORD 


<PARSE PNT-HEAD> 




•|D7C 


5127 




XCH6 " 


EB 


1D7C 




.BYTE 


^^0353 




1D7D 


5128 




LHLD PARSE TABLE 


2k 


1D7D 




.8YTE 


*052 


03DC' 


1D7E 




.WORD 


<PARSE TABLE-HEAO 




1D80 


5129 




MOV " CM 


AE 


1D80 




,8YTE 


*0100 I <C*8> 1 M 




1D81 


5130 




MOV A,C 


79 


1D81 




.BYTE 


*0100 ! <A*8> 1 C 




1D82 


5131 




CPI HEX FF 


FE 


1D82 




.8YTE 


"0376 


FF 


1D85 




.BYTE 


HEX FF 




1D84 


5132 




jz ■ 1$ 


CA 


1D8A 




.BYTE 


"0312 


1DA8' 


1D85 




.WORD 


<1$-HEAD> 




1D87 


5133 




INX H 


21 


1D87 




.BYTE 


<H*8> 1 3 




1D88 


513^. 




CALL COMPARE R 


CD 


1D88 




.BYTE 


^0315 


OF55' 


1D89 
1D88 


5135 


.WORD 


<COMPARE^R-HEAD> 




1D8B 


5136 




IFZ 


C? 


1D88 




.BYTE 


^0302 


1P98' 


1D8C 
1D8E 


5137 


.WOPD 


<2158$-HEAD> 




1D8E 


5138 




SHLD PAR VECT 


22 


1D8E 




.BYTE 


-^0^2 


03D7' 


1D8F 




.WORD 


<PAR VECT-HEAD> 




1D91 


5139 




CALL" SKIP.TO SPEC 


CD 


1D91 




.BYTE 


"0315 


Of 33' 


1D92 




.WORD 


<SKIP TO SPEC-HEAD> 




109^; 


5U0 




LHLD " Par vect 


?A 


1D9A 




.BYTE 


"052 


0307' 


1D95 




.WORD 


<par.vect-heao> 




1D97 


5U1 








1D97 


5U2 




PCHL 


E9 


1D97 
1D98 


5U3 


.BYTE 


"0351 




1D98 


5V.4 




ELSE 


^l 


1D98 




.BYTE 


"0303 


1DA5' 


1D99 
1D9e 
1D98 


2158$: 

5U5 


.WORD 


<2159$-HEAD> 




1098 


5^*6 




MOV A,C 


79 


1D9e 




.BYTE 


"0100 1 <A*8> 1 C 




1D9C 


5U7 




ADJ A 


C6 


1D9C 




.BYTE 


"0306 


CA 


1D9D 




.BYTE 


A 




^D9E 


"iM^B 




MOV C,A 


iiF 


U'PE 




.BYTE 


"O100 1 ;c*8> : A 




iD9f 


5U9 




MVI 8,0 



Frame M13 Sequence 168 
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;ONE POINTER IN D+E 
;OTHER IN H+L 

;6ET COUNTER 
;END OF TABLE?? 



;COMPARE TABLE AND BUFFER 



;SKIP ALL NONPARSED CHARS 



;BRANCH TO ROUTINES 



GENERATE LOCAL SYMBOL NAME 
USE LEFTOVER COUNT FROM 
COMPARE TO SKIP OVER DATA 



!2Z-EMKAB-1.5 .MAIN. 

'.MAIN. 



N 13 
14-JUN-198^ Fiche 1 Frame N13 Sequence 169 

U-JUN-198^ 16:08:17 VAX-11 Macro V03-01 Page 165 

14-JUN-198A 15:49:51 DRB0:C8ALL .ENKABDENKAB.MAC'i d) 



00 06 


1D9F 






1DA1 


5150 


09 


IDA! 






1DA2 


5151 


22 


IDA? 




03DC* 


1DA3 






10A5 


5152 




IDAS 


5153 




1DA5 






1DA5 


515; 




IDAS 


5155 


C3 


IDAS 




1D79' 


1DA6 






1DA8 


5156 




1DA8 


5157 


AF 


1DA8 




3C 


1DA9 




32 


1DAA 




03C2' 


IDAS 






1DAD 


5158 


C9 


1DAD 






1DAE 


5159 




1DAE 


51o0 




1DAE 


5161 




1DAE 


5162 




1DAE 


5163 




1DAE 


516A 




1DAE 


5165 




1DAE 


5166 




1DAE 


5167 




1DAE 


5168 


AF 


1DAE 




?2 


1DAF 




0?8A' 


IDBO 






1D82 


5169 




1D82 


5170 


AF 


1DB2 




52 


1DB3 




U2EA' 


1D86 




5A 


1DB6 




02EA' 


'\)^7 




OF 


1DB9 




DA 


1D8A 




1PF8' 


1D8B 






1DBD 


5171 




1DBD 


5172 


5A 


1D8D 




03F ' ' 


U'8E 




CF 


1DCC 




DA 


IDH 




IDCD* 


\X^ 






IDC^ 


5^•^ 




10'^ 


517A 


'1 


'DC^ 




^}nt 


.D''^ 






IDr^ 


5VS 



;SP1P TO NEXT COMMAND 



2159$: 



.-GENERATE LCL 2159 NAME 



1$: 



;with A 



;NOT FOUND 



.BYTE <B*8> I 6 , 0&255 

DAD B 

.BYTE <B*8> I 9 

SHLD Parse table 

.8YTE *042 

.WORD <PARSE_TABLE-HEA0> 

E uIF 



JMP 2$ 

.BYTE ^0303 
.WORD <2S"Hi;AD> 

SET NOT FOUND 

.BYTE -^0250 : A " 
.BYTE ' M ! <8*A> 
.BYTE "062 
.WORD <NOT FOUND-HEAD> 

RET 
.BYTE *031 I 

PARSER 

THIS ROUTINE PARSES THE COMMAND LINE GIVEN AFTER THE PROMPT AND DISPATCHES 

TO THE PROPER SUBROUTINE TO HANDLE EACH KEYWORD 

PARSER: 

;with A 



A005$: 





CLEAR MICRO STEP 


.BYTE 


"0250 1 A 


.BYTE 


"062 


.WORD 


<M1CR0_STEP-HEAD> 




WHILENR EXECUTE 


.BYTE 


"0250 I A 


.BYTE 


"062 


.WORD 


<EXECUTE"HEAD> 


LDA 


EXECUTE 


.BYTE 


"072 


.WORD 


<EXECUTE-HEAD> 


.BYTE 


"017 


.BYTE 


"0332 


.WORD 


<2160$"HEAD> 




IFN RFSTAt^T 


.BYTE 


"072 


.WORD 


<RE5TART-HEAD> 


.BYTE 


"017 


.BYTE 


"0332 


.WORD 


<2161$-HEAD> 




CAl L PRINT PROMPT 


.BVTf 


*n^:s 


.WORt^ 


'PRINT P:<OMpr-HtAD> 




CALL " AUTO TEST 



;with A 



B U 



i7>:\' AB-''.') .MAIN. 



■':d 


1DC7 




u^^* 


1DC8 






1DCA 


5176 




1DCA 


5177 


Ci 


1DCA 




IDD^* 


1DCB 
1DCD 






1DCD 


5178 




1DCD 


5179 


^1 


IDCD 




^0 80 


1DCE 






10D0 


5180 


AP 


IDDO 




5^ 


1DD1 




03-n* 


^DD? 






1DDA 


^181 




iDDA 


518? 




1DD4 






IDD^ 


5183 




1DD^ 


SI 84 




10D4 


5185 


"I ^ 


IDDA 




U9'3r 


1DD5 






TDD7 


5186 


1 1 


10D7 




U8'D1' 


TD08 






1D0A 


5187 


•:n 


1DDA 




iD6r 


lDDe 






1DDD 


5188 




1DDD 


5189 


5A 


IDDD 




0^S6' 


IDDE 




OF 


1DE0 




:? 


TDE1 




i[)tE* 


IDE? 






IDE^ 


519C 




iDEi 


5191 


Af 


:de4 




?; 


IDE*^ 




■;?56' 


TDEC 






1DE8 


5)9? 


01 3t 


1DP8 






IDEA 


5195 


Ik 


^DEA 




oon' 


1DEB 






TDEO 


5194 


C9 


^DED 






TDEf 


519S 




IDEE 






OEE 


5:96 




^DEE 


5197 


?A 


1DFE 




i^r,^' 


iHFf 






'Of : 


5^93 


B/ 


ibf ■ 






1Df ? 


5^99 



216U 



21o?$ 



165$ 



.evTE 
.WORD 



.BVFE 
• WORD 



.BYfE 

.evTE 

.BYTE 
.i*JOftD 



,ByTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.WORD 



.BYTE 
.WORD 
.BYTE 

.BYTE 
.WORD 



.BYTE 

.BYTE 
.WORD 

.BYTE 

.WORD 
.BYTE 



.BYTE 
.WORD 

.BY^E 



Sequence "70 

;-01 I 
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(1) 



*0315 
<AUI0.TEST-HEAD> 

ELSE 

"0303 

<?162$-HEAD> 



;6ENERATE LOCAL SYMBOL NAME 
;SET UP STACK POINTER 



LXI $Sf^,PRI STACK 

<$sp«8> : 1 

<PRI STAC<-MEAD>&?55 , «PRJ STACK-HEAD>&*XFF00>/?56 

CLEAR PESTART 

*0250 : A ;with A 

*06? 

<RESTAfiT-HEAD> 



ENDIF 



' XI H,MAJN TAB 

<H*8> : 1 

<MAIN TA8-HEA0>B?55 
LX! ■ D,TT8UF 

<D*8> : 1 

<TTBUF-HEAD>&255 , 
CALL PAR 

*0315 
<PAR-HEAD> 

IF CONT DONE 

"07? 

<CONT DONE-HEAD> 

*017 

"03?? 

<?163$-HEAD> 



CLEAR CONT DONE 

*0?50 ! A ■ ;with A 

"06? 

<CONT 00NE-HEAD> 

MVI " AJ 

<A'8> I 6 . 1R?55 

STA APT MESSAGE CCDE+1 

"06? 

<APT MESSAGE C0DE+1-HEAD> 

RET " 

"0311 

ENDIF 



lDA NOT FOUND 

^^07? 

<NOT FQUN^-MEAD-* 

ORA " 

*0?60 : A 

iHl SYNTAX ERRuR 



;G:,nERATE LCL ?16? NAME 



/POINTER TO PARSE TABLE 

, <<HAJN TA8-HEAD>ft*XF?00>/?56 

;POINTFR TO CHAR BUFFER 

«TT8UF-HtAD>&*XFF00>/?56 



; CONTINUE PARSED., BACKUP 



INTO STACK ONE LEVEL 



;SET APT START FLAG 



/GENERATE LCL ?163 NAME 
;GET NOT FOUND FLAG 

;5ET CONDITION CODES 
/REPORT SYNTAX ERROR IF SET 



i.MAlN. 



,MAiN. 



C4 
18E0* 



C3 
1DB6* 



3A 
02EA' 
Of 
D2 
1E87* 



3A 
OAOB' 
FE 
00 
CA 
1E65' 



CD 
lEGA* 



AF 
32 

02FD* 

3A 

02FD' 



IDF 2 

1DF3 

1DF5 

1DF5 

1DF5 

1DF6 

IDF 8 

1DF8 

1DF8 

1DF8 

1DF8 

1DF8 

1DF8 

1DF8 

1DF8 

1DF8 

1DF8 

1DF8 

1DF8 

1DF8 

1DF8 

1DF8 

1DF8 

1DF8 

1DF8 

TDF8 

1DF8 

1DF8 

1DF8 

1DF8 

1DF8 

1DF8 

1DF8 

1DF9 

1DF8 

1DFC 

1DFD 

1DFF 

IDFF 

1DFF 

1E0C 

1E02 

U03 

1E04 

1E05 

1E07 

1E07 

1EC7 

1E08 

1E0A 

1E0A 

TEOA 

1E08 

1E0C 

UOE 

1E0E 

1E0F 



5200 
5201 



5202 
5203 
520^ 
5205 
5206 
5207 
5208 
5209 
5210 
5211 
5212 
5213 
52U 
5215 
5216 
5217 
5218 
5219 
5220 
5221 
5222 
5223 
5224 
5225 



2160S: 



.evTE 

.WORD 



.Bvy 

.WORD 



c u 
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*0304 

<SYNTAX ERROR-HEAD> 



ENDWHJLE 

*0303 

<4005$-HEAD> 



.•GENERATE LCI. 2160 NAME 



*************************************************************************** 

THIS ROUTiNE PARSES THE SECTION TABLE 

THERE IS A FLAG WITH EACH SECTJiN NAME CSECTION.FLAG) 

SECTION FLAG; FF = END OF TABLE 

BIT 7 = NAME IS SECTION NAME FOR WCS 

1 =: NAME IS SECTION NAME FOR CONSOLE RAM 

BIT 6 1 = OPTIONAL TEST 

BITS 0-5 XX = CPU CLUSTER BOARD NUMBER 

THERE IS A FLAG STATING HOW THE TABLE IS TO BE PARSED (TABLE.MODE) 



TA8LE MODE 



= TABLE NOT IN USE 

1 = BOARD MODE 

2 = ALL SECTION MODE 



5226 
5227 



5228 
5229 



5230 
5231 



**************************************************************************** 

WHILE EXECUTE 

A006$; LDA EXECUTE 

.8YTE "072 

.WORD <EXECUTE"HEAD> 

.BYTE ^^017 

.BYTE *0322 

,WOfiD <216A$-HEAD> 

IFNEQI TABLE MODE,0 

.BYTE *072 

.WORD <TABLE MODE-HEAD> 

.BYTE *0376 " 

.BYTE 

.BYTE ^^0312 

.WORD <2165$-HEAD> 

CALL SET ALL TESTS 

.BYTE *0315 
.WORD <SET.ALL.TESTS-HEAD> 

UNTILR FILE LOADED 

.BYTE *O250 ! A ;with A 

.BYTE *062 

.WORD <FILE LOADED-HEAD> 

4007$: LDA FILE COADEO 

.BYTE "072* 

.WORD <FILE LOADED-HEAD> 



;SET UP TEST NUM FOR ALL 



; TESTS AND CLEAR EOS FLG 



ZZ-ENKAB-1,5 
.MAIN. 



.MAIN 



OF 


1E11 




DA 


1E12 




1E60* 


1E13 






1E15 


5232 




1E15 


5233 


2A 


1E15 




O^OC 


1E16 






1E18 


5234 


11 


1E18 




04' 1F* 


1E19 






1E18 


5235 


07 OE 


1E18 






1E1D 


5236 


CD 


1E1D 




0F75' 


1E1E 






1E20 


5237 


22 


1E20 




OAOC 


1E21 






1E23 


5238 




1E23 


5239 


3A 


1E23 




0A1F* 


1E2A 






1E26 


5240 


E6 


1E26 




3F 


1E27 






1E28 


5241 


Y2 


1E28 




0A04' 


TE29 






1E2e 


5242 




n2H 


5243 


3A 


1E28 




0A1F' 


1E2C 




FE 


1E2E 




FF 


1E2F 




a 


1E30 




1E39' 


1E31 






1E33 


5244 




1E33 


5245 


CD 


1E33 




183E' 


1E3A 






1E36 


5246 




1E36 


5247 


C3 


1E36 




1E5D' 


Ml? 

1E39 






1E39 


5248 




1E39 


5249 




1E39 


5250 


3A 


1E39 




041F' 


1E3A 




F6 


1E3C 




AO 


1E3D 




a 


1E3E 




1E5D' 


1E3F 






TEA1 


5251 




1EA1 


5252 


3A 


1E41 





2167$: 



.BYTE 
.WORD 
.BYTE 
.BYTE 
.BYTE 
.WORD 



.BYTE 
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.BYTE 


*017 


.BYTE 


*0332 


.WORD 


<2166$-HEAD> 




LHLD TABLE PNT 


.8YTE 


*052 


■ WORD 


<TABLE PNT-HEAD> 




LXI " D,TEMP FLAG 


.BYTE 


<D*8> ! 1 


.BYTE 


<TEHP FLAG-HEAD>S255 , « 




MVI CSEC LEN + 1 


.BYTE 


<C*8> ! 6 , SfC LEN+1&255 




CALL MOVER R" 


.BYTE 


^^0315 


.WORD 


<MOVER R-HEAD> 




SHLD ■ TABLE PNT 


.BYTE 


*042 


.WORD 


<TABLE_PNT-HEAD> 




LDA TEMP FLAG 


.BYTE 


'^072 


.WORD 


<TEMP FLAG-HEAD> 




ANI " HEX y 


.BYTE 


'^0346 


.BYTE 


HEX 3F 




STA" SECTION 8 NUM 


.BYTE 


^^062 


.WORD 


<SECTION_B_NUM-HEAD> 




IFEQI TEMP FLAG, HEX FF 


.BYTE 


*072 


.WORD 


<TEMP FLA6-HEAD> 


.BYTE 


*0376' 


.BYTE 


HEX FF 


.BYTE 


"03D2 


.WORD 


<2167$-HEAD> 




CALL EOP 


.BYTE 


-^0315 


.WORD 


<EOP-HEAD> 




ELSE 


.BYTE 


^0305 


.WORD 


<2168$-HEAD> 



;POINTER TO SECTION TABLE 

;POINTER TO TEMP DATA BUFFER 

«TEMP FLA6-HEAD>&*XFFO0>/256 
" ; COUNT 

;M0VE ENTRIES TO LOCAL BUFFER 
;UPDATE SECTION TABLE POINTER 



;SAVE BOARD THAT OWNS THIS SEC 



;END OF TABLE?? 



;6ENERATE LOCAL SYMBOL NAME 



IFNMBI TEMP FLAG, OPTIONAL TST ;OPTIONAL TEST?? 

*072 

<TEMP FLAG-HEAD> 

^^0346" 

OPTIONAL TST 

*O302 ■ 

<2169$-HEAD> 



IFEQI 
*072 



TABLE^MODEJ 



;BOAF^D MODE?? 



22-ENKAB-1.5 
.MAIN. 



■MAIN, 



E 14 
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(1) 



0408' 


1E42 




FE 


1E44 




01 


1E45 




C2 


1E46 




1E5A' 


1E47 






1E49 


5253 




1E49 


5254 


3A 


1E49 




0404' 


1E4A 




ij 


1E4C 




3A 


1E4D 




024D' 


1E4E 




AO 


1E50 




CA 


1E51 




1E57' 


1E52 






1E54 


5255 


CD 


1E54 




1A80' 


1E55 






1E57 


5250 




1E57 


5257 




1E57 






1E57 


5258 




1E57 


5259 


C3 


1E57 




1E5D* 


1E58 

1E5A 






1E5A 


5260 


CD 


1E5A 




1A80' 


1E58 






1E5D 


5261 




1E5D 


5262 




1E5D 






1E5D 


5263 




1E5D 


5264 




1E5D 






1E5D 


5265 




1E5D 


5266 




1E5D 






TE5D 


5267 




1E5D 


5268 


C3 


1E5D 




1E0E* 


1E5E 
1E60 






1E60 


5269 




1E60 


5270 


C5 


1E60 




1E6A' 


1E61 

1E63 






1E63 


5271 




1E63 


527? 


J5A 


1E63 




0056 • 


1E64 
1E66 


5275 


B7 


1E66 






1E67 


5274 


C4 


1E67 




183E' 


1E68 





2171$: 



2170$: 



2172$: 



2169$: 



2168$: 



2166$: 



2165$: 



.WORD 
.8YTE 
.BYTE 
.BYTE 
.WORD 



.BYTE 
■ WORD 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.BYTE 
.WORD 

.8YTE 
.WORD 



BYTE 
WORD 



BYTE 
WORD 



.3YTE 
.WORD 



.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 

• BYTE 

.WORD 



<TABLE MODE"HEAD> 

*0376 ' 

1 

'^0302 

<2170$-HEAD> 



80ARD_NUM,SECTJ0N.8_NUM ;SEC BELONG TO THIS BOARD? 



IFHB 

"072 

<SECTI0N 8 NUM-HEAD> 

*0100 : <B*8> : A 

*072 

<B0ARD NUM--HEAD> 

*0240 T B 

^^031 2 

<2171$-HEAD> 

CALL MOV LOAD SECTION 

*0315 

<MOV_LOAD.SECTI0N-HEAD> 

ENDIF 



ELSE 

-^0303 

<2172$-HEAD> 

CALL MOV LOAD SECTION 
"031 5 
<M0V.L0AD.SECT]0N-HEAD> 

ENDIF 
ENDIF 
ENDIF 



ENDUNTIL 

'^0303 

<4007$-HEAD> 



ELSE 

*0303 

<2173$"HEAD> 



LDA EOS FLG 

'^072 

<EOS FLG"HEAD> 

ORA " A 

"0260 ! A 

CN2 EOP 

^0304 

<EOP-HEAD> 



;MOVE NAME TO SECTION,NAME AND 

; LOAD SECTION 
;GENERATE LCL 2171 NAME 



.■GENERATE LOCAL SYMBOL NAME 
ll'f DI MODE, MOVE NAME TO 



; SECTION.NAME AND LOAD SECTION 
;GENERATE LCL 2172 NAME 

;6ENERATE LCL 2169 NAME 

;GENERATE LCL 2168 NAME 

;GENERATE LCL 2166 NAME 

; GENERATE LOCAL SYMBOL NAME 
;6ET EOS FLAG 

;SET CONDITION CODES 
;CALL EOP IF SET 



ZZ-EMKAB-1.5 
.MAIN. 



.MAIN. 
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1E6A 


5275 










1E6A 


5276 




ENDIF 






1E6A 


2173$: 






;GENERATE LCL 2173 NAME 




1E6A 


5277 










1E6A 


5278 




IF EXECUTE 




5A 


1E6A 




.BYTE 


*072 




02EA' 


1E6B 




.WORD 


<EXECUTE-HEAD> 




OF 


1E6D 




.BYTE 


*017 




D2 


1E6E 




.BYTE 


*0322 




1EB4' 


1E6F 
1E71 


5279 


.WORD 


<2174$-HEAD> 






1E71 


5280 




LDA APT PASS CNT+1 


;6ET PASS CNT 


3A 


1E71 




.BYTE 


*072 




0019' 


1E72 




.WORD 


<APT PASS CNT+1"HEAD> 






1E74 


5281 




ORA " A" 


;SET CONDITION CODES 


B7 


1E74 




.BYTE 


*O260 1 A 






1E75 


5282 




JNZ 1$ 


;JUMP OUT IF LSB NOT 


C2 


1E75 




.BYTE 


^0302 




1E7C' 


1E76 




.WORD 


<1$-HEAD> 






1E78 


5283 




LDA APT PASS CNT 


;6ET MSB OF PASS CNT 


3A 


1E78 




.BYTE 


*072 




0018' 


1E79 




.WORD 


<APT PASS CNT-HEAD> 






1E7B 


5284 




ORA " A" 


;SET CONDITION CODES 


B7 


1E76 
1E7C 


5285 


.BYTE 


^^0260 1 A 






1E7C 


5286 1$: 




IF CONSOLE TEST 




3A 


1E7C 




.BYTE 


*072 




0255' 


1E7D 




.WORD 


<CONSOLE TEST-HEAD> 




OF 


1E7F 




.BYTE 


*017 




02 


1E80 




.BYTE 


*0322 




1E9E' 


1E81 




.WORD 


<2175$-HEAD> 






1E83 


5287 




CLEAR FAST WRITE 




AF 


1E83 




.BYTE 


*O250 ! A 


;with A 


32 


1E84 




.BYTE 


*062 




02FC* 


1E85 




.WORD 


<FAST WRITE-HEAD> 






1E87 


5288 




ZERO " DATA0,4 


; RE SET OUT OF COMPAT. MODE 


21 


1E87 




.BYTE 


<H*8> ! 1 




O0'A9' 


1E88 




.BYTE 


<DATA0-HEAD>&255 , «DATA0-HEAD>R*XFF00>/256 


04 OE 


1E8A 




.BYTE 


<C*8> 1 6 , 4S255 




AF 


1E8C 




• BYTE 


*O250 ! A 


;w1th A 




1E8D 


2176$: 




HOV H.A 




7? 


1E8D 




.BYTE 


*0100 ! <M*8> ! A 




23 


1E8E 




.BYTE 


<H*8> ! 3 




OD 


1E8F 




.BYTE 


*05 ! <8*C> 




C2 


1E90 




.BYTE 


•^0302 




1E8D* 


1E91 




.WORD 


<2176$-HEAD> 






1E93 


5289 




MVI A, HEX FF 




FF 3E 


1E93 




.BYTE 


<A*8> : 6 , hEx FF&255 






1E95 


5290 




CALL WRITE L5 R 




CD 


1E95 




.BYTE 


*0315 




1146' 


1E96 




.WORD 


<WRITE LS R"HEAD> 






1E98 


5291 




CALL " E5?EC CONTESTS 




CD 


1E98 




.BYTE 


*0315 




7000 


1E99 




.WORD 


<EXEC.CONTESTS-HEAD> 






1E98 


5292 










1E98 


5293 




ELSE 




C3 


1E98 




.BYTE 


'^0303 





ZZ-ENKAB-1.5 .MAIN 

.MAIN. 



G 14 
U-JUN-1984 



1EB4' 



3A 
0427' 

67 

AF 

6F 

22 
0407' 



3A 
0427' 

3D 

32 
0426* 



CD 
TOFF' 

CD 
1321' 



C5 
1DF8' 



C3 
1DAE' 



1E9C 

1E9E 

1E9E 

1E9E 

1E9E 

1E9F 

1EA1 

1EA1 

1EA2 

1EA2 

1EA3 

1EA3 

1EAA 

1EA4 

1EA5 

1EA7 

1EA7 

1EA7 

1EA8 

1EAA 

lEAA 

1EAB 

1EAB 

1EAC 

1EAE 

1EAE 

1EAE 

lEAF 

1EB1 

1E61 

1EB2 

1EB4 

lEB^ 

1E8A 

1EB4 

1EB4 

1EB4 

lEB'^ 

lEB^ 

lEBA 

1EB5 

1EB7 

1EB7 

1EB7 

1Ee7 

1EB8 

lEBA 

1EBA 

1EBA 

1EBA 

1EBA 

lEBA 

1E8A 

lEBA 

lEBA 

1EBA 

1E8A 



529A 
5295 



5296 
5297 
5298 
5299 



5300 
5301 



5302 
5303 



530A 
5305 



5306 



5307 
5308 

5309 

5310 

5311 
5312 



5313 
53U 



5315 
5316 
5317 
5318 
5319 
5320 
5321 
5322 
5323 
532-^ 
5325 



2175S: 



2177$: 
2174$: 

2164$: 



.BYTE 
.WORD 

.BYTE 

.BYTE 

.BYTE 

.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 

.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 
.WORD 



.BYTE 
.WORD 



.BYTE 

.WORD 
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.WORD <2177$-HEAD> 



LDA TEST NUM1 

-^072 

<TEST NUM1"HEAD> 

MOV " H,A 

*0100 ! <H*8> ! A 

XRA A 

*0250 ! A 

MOV L,A 

*0100 ! <L*8> : A 

SHLD STARTING UPC 

*042 

<STARTING_UPC-HEAD> 

LDA TEST NUM1 

^072 

<TEST NUM1-HEAD> 

DCR " A 

*05 ! <8*A> 

STA TEST NUM 

'^062 

<TEST_NUM-HEAD> 

CALL START CPU 

*0315 

<START CPU-HEAD> 

CALL " ATTENTION 

*0515 

<ATTENTION-HEAD> 

ENDIF 



ENDIF 



ENDWHILE 

*O303 

<4006$-HEAD> 



JMP PARSER 

*0303 

<PARSER-HEAD> 



.•GENERATE LOCAL SYMBOL NAME 
;USE TEST NUMBER AS STARTING 

;ADDRESS IN WCS 



;with A 



;SET UP FOR INC ON BEG OF TEST 



;GENERATE LCL 2177 NAME 



; GENERATE L L 2174 NAME 



;6ENERATE LCL 2164 NAME 



SET^ALL. TESTS 

THIS ROUTINE SETS STARTING TEST NUM TO 1, ENDING TEST NUM TO 50(H) AND 
CLEARS THE EOS FLAG. 

SET ALL TESTS: 



Z2-ENKAB-1.5 .MAIN 
.MAIN. 



01 3E 

32 

0427* 



50 3E 

32 
0A28' 



AF 
32 
0056' 



C9 



32 
0A26' 

AF 
3C 
32 
003A' 



CD 
iA29 



CD 
1073 



01 3E 
32 



1EBA 

1EBA 

1EBC 

1EBC 

1EBD 

1EBF 

1EBF 

1EBF 

1EC1 

1EC1 

1EC2 

1EC-!. 

1EC4 

1EC4 

1EC5 

1EC6 

1EC8 

1EC8 

1EC8 

1EC9 

1EC9 

1EC9 

1EC9 

1EC9 

1EC9 

1EC9 

1EC9 

1EC9 

1EC9 

1EC9 

1EC9 

1EC9 

1EC9 

1EC9 

1EC9 

1EC9 

1EC9 

lECA 

1ECC 

lECC 

1ECD 

1ECE 

1ECF 

1ED1 

1E01 

1ED1 

1ED2 

1ED4 

1ED4 

lED-; 

1ED5 

1ED7 

1ED7 

1ED7 

1ED7 

1ED9 

1ED9 
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5326 
5327 



5328 
5329 

5330 



5331 
5332 



5334 

5335 
5336 
5337 
5338 
5339 
5340 
5341 
5342 
5343 
5344 
5345 
5346 
5347 
5348 
5349 
5350 
5351 



5352 



53S3 
5354 



5355 
5356 



5357 
5358 
5359 

5360 



.BYTE 

.BYTE 
,WORD 



.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 
.WORD 



.BYTE 



MVl AJ 

<A*8> 1 6 , 1&255 
STA TEST NUM1 

*062 
<TEST.NUM1"HEAD> 

MVl A, HEX 50 

<A*8> ! 6 , HEX 50&255 

STA TEST NUW2 

*062 

<TEST NUM2-HEAD> 



;SET TO START AT TEST 1(D) 



;SET UP ENDING TEST 



EOS FLG 
A ■ 



CLEAR 
*O250 1 
*062 
<EOS_FLG-HEAD> 

RET 
'^OSII 



;with A 



;D0NE 



CONSOLE TEST SUBROUTINES 



******************************************************************************** 

CON BEGIN TEST R THIS ROUTINE IS USED FOR BEGINNING OF TEST FOR CONSOLE 
" ~ " BASED CPU TESTS ONLY. 

INPUT CONDITIONS: 
A=TEST NUMBER 



CON BEGIN TEST. 


-R: 




STA TEST NUM 


.BYTE 


^062 


.WORD 


<TEST NUM"HEAD> 




SET CONTINUE 


.BYTE 


*O250 ! A 


.BYTE 


*Q4 ! <8*A> 


.BYTE 


*062 



.WORD <C0NT]NUE-HEAD> 

CALL 6CVECT 
.BYTE ^0315 
.WORD <GCVECT-HEAD> 

CALL CHECK CNTLC 
.BYTE *0315 
.WORD <CHECK CNTLC-HEAD> 



;SAVE TEST NUMBER 

;SET UP TO CONTINUE IF TEST 
;with A 



; STOPPED BY OTHER THAN '^P 
; CHECK FOR OPERATOR REQUEST 



;IF *C, 60 BACK TO PARSER AND 
; ALLOW CONTINUE 



MVl AJ 

.BYTE <A*8> ! 6 , U255 

STA APT MESSAGE CODE+1 
.BYTE -^062 



;SET APT START FLAG 



ZZ-ENKAB-1.5 
.MAIN, 



.MAIN. 



0011 



21 
0A»27' 

11 
OA'26' 
01 OE 
CD 
OOCF* 
F2 
1EF2' 

AF 
3C 
32 
006A' 



C3 
1F13* 



AF 
32 
006A' 



21 
OA'26' 

11 
OA'28' 
01 OE 

CD 
OOCF' 

F2 
IfOD* 

AF 
5C 
32 
0056' 

C9 



C3 

1f13* 



3A 

0A26' 

52 

0017* 



1EDA 

1EDC 

1EDC 

1EDC 

1EDD 

1EDF 

1EE0 

1EE2 

1EE4 

1EE5 

1EE7 

1EE8 

1EEA 

1EEA 

1EE8 

1EEC 

1EED 

1EEF 

1EEF 

1EEF 

1EF0 

1EF2 

1EF2 

1EF2 

1EF2 

1EF3 

1EFA 

1EF6 

1EF6 

1EF6 

1EF7 

1EF9 

1EFA 

1EFC 

1EFE 

1EFF 

1F01 

1F02 

1F0A 

1F06 

1F05 

1F06 

1F07 

1F09 

1F09 

IFOA 

1F0A 

IFOA 

1F08 

1F0D 

1F0D 

IFOD 

1F0E 

1F10 

1F10 

un 

1F13 



5361 
5362 



5363 



536A 
5365 



5366 
b367 



5368 
5369 



2178$: 



5370 



5371 

5372 
5373 



537A 



5375 



5376 



2180$: 
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.WORD <APT_MESSAGE.C0DE+1-HEAD> 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.BYTE 
.WORD 

.BYTE 
.BYTE 
.BYTE 
.WORD 



.BYTE 
.WORD 



.BYTE 
.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 
.BYTE 
• WORD 

.BYTE 
.BYTE 
.BYTE 
.WORD 

.BYTE 



.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 
.WORD 



1F6T TEST NUM1,TEST NUM,1 

<H*8> ! 1 

<TEST NUM1"HEAD>£255 

<D*8>"! 1 

<TEST NUM-HEAD>8255 

<C*8>"! 6 , 1&255 

''0315 

<COMPARE-HEAD> 

*0362 

<2178$-HEAD> 

SET SKIP TEST 

*0250 I A " 

^04 ! <8*A> 

'^062 

<SKIP.TEST"HEAD> 

ELSE 

*0303 

<2179$-HEAD> 



«TEST_NUM1-HEAD>a*XFF0O>/256 
«TEST.NUM-HEAD>&*XFF00>/256 



;with A 



; GENERATE LOCAL SYMBOL NAME 



CLEAR SKIP TEST 

'^0250 ! A 

*062 

<SKIP TEST"HEAD> 



;with A 



«TEST_NUM-HEAD>&*XFFO0>/256 



IFGT TEST NUMJEST NUM2J 

<H*8> I 1 

<TEST NUM-HEAD>&255 

<D*8>"! 1 

<TEST NUM2-HEAD>6255 , «TEST NUM2-HEAD>S''XFF0O>/256 

<C*8>"! 6 , U255 

*0315 

<COMPARE-HEAD> 

*0562 

<2180$-HEAD> 

SET EOS FL6 

*0250 ! A " 

*DA ; <8*A> 

'^062 

<EOS FLG-HEAD> 

RET 

-^0311 



;with A 



;F0RCE END OF SECTION 



ELSE 

^^0303 

<2181$-HEAD> 

LDA TEST NUM 

^072 

<TEST NUM-HEAD> 

STA " APT TEST NUMBER+1 

^^062 

<APT TEST NUMBER+1-HEAD> 

ENDIF 



.'GENERATE LOCAL SYMBOL NAME 
;6ET TEST NUMBER 



;5AV£ IN APT MAILBOX 



\ 



ZZ-ENKAB-1.5 
.MAIN. 



.MAIN. 



C9 



3C D3 
CD 

1F31' 



CO 
UA2' 



5A 

005A' 

IF 



AF 
3C 
32 
0057* 



CD 
A129 

CD 
1075' 

3D D3 

C9 



1F13 
1F13 
1F13 
1F13 
1F13 
1F13 
1F13 
1FU 
1FU 
1F1A 
1FU 
1FU 

^n^ 

IFU 

1FU 

1FU 

1FU 

IFU 

1FU 

IFU 

1F16 

1F16 

1F17 

1F19 

1F19 

1F19 

1F19 

1F1A 

1FK 

1F1C 

IFU 

1F1D 

1F1F 

1F1F 

UPO 

1F20 

1F21 

1F23 

1F23 

1F23 

1F2A 

TF25 

1F26 

1F28 

1F28 

1F28 

1F29 

1F2B 

1F28 

1F2C 

lF2c 

1F2E 

1F30 

1F30 

U31 

1F31 

if;^i 
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2181$; 



2179$: 



5377 
5378 

5379 
5380 

,8YTE 
5381 
5382 
5383 
5384 
5385 
5386 
5387 
5388 
5389 
5390 
5391 
5392 CON_ERROR R: 

.Byte 

5393 

.BYTE 
.WORD 

5394 

5395 

5396 



ENDIF 



RET 
'^0311 



;GENERATE LCL 2181 NAME 
; GENERATE LCL 2179 NAME 



CON ERROR R THIS ROUTINE IS EXECUTED TO PRINT AN ERROR FOUND BY A 
■ CONSOLE BASED CPU TEST. 



CLRLIT 
CLRL1T6255 
MSK ERROR R 



OUT 

*0323 

CALL 

"0315 

<MSK ERROR R-HEAD> 



5397 
5398 



5399 
5400 



5401 
5402 



.BYTE 
• WORD 



.BYTE 
• WORD 

.BYTE 

.BYTE 
.WORD 



.BYTE 
.BYTE 
.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 
.WORD 

.BYTE 

.BYTE 



CALL WCS ERROR 

*0315 

<WCS_ERROR"HEAD> 

IDA FLAGS 

^^072 

<FLAGS-HEAD> 

RAR 

*037 

JNC 1$ 

*0322 

<1$-HEAD> 

SET ERROR CON 
*0250 ! A 
"^04 ! <8*A> 
*062 
<ERROR_C0N-HEAD> 

CALL GCVECT 

*0315 

<GCVECT-HEAD> 

CALL CHECK CNTLC 

*0315 

<CHECK CNTLC-HEAD> 

OUT ■ SETLJT 

*0325 , SETLIT8255 

RET 

*0311 



TURN RUN LITE OFF 

register A 

MASK THE EXPECTED AND RECEIVED 



DATA TO ELIMINATE ANY BITS 
WHICH ARE NOT OF INTEREST. 
CALL MICMON ROUTINE TO PRINT ERROR 



; REPORT 

;D0 NOT SET ERROR CON FLAG IF LOOP 



ON ERROR IS NOT SET 



;SET FLAG SAYING ERROR HAPPENED AND 
;with A 



; LOOP ON ERROR WAS SET 
;CHECK FOR OPERATOR INPUT 



5403 
5404 

5405 

5406 1$: 
5407 

5408 
5409 
541 •*************************^*** ************************************ ************* 



;CHECK FOR CONTROL C INPUT 



;:URN RUN LITE BACK ON 
.•register A 



IZZ-ENKA8-1.5 
.MAIN. 



.MAIN. 



U-JUN-198A Fiche 1 Frame KU 

U-JUN-198A 16:08:17 VAX-11 Macro 



Sequence 179 
V03-OT _Page 



?1 
OO'AO' 



22 
004A' 



n 



2\ 
00*55' 

^6 

C5 
04 3E 

77 



2A 



CD 
1F78' 

22 
OO^A' 



21 
00'55' 
35 
C? 
1f4?' 
C1 
70 



21 
00*4F» 



2? 
0055' 



1F31 

1F31 

1F31 

1F31 

1F31 

1F31 

1F31 

1F31 

1F31 

1F31 

1F32 

1F3'!. 

1F3A 

1F3A 

1F35 

1F37 

1F37 

'tF37 

IF 38 

1F3A 

1f3A 

1F3A 

1F3A 

1F38 

ir3D 

1F3B 
1F5F 
1F41 

^n2 

1FA2 
1F42 
1FA2 
1F43 
1FA5 
1FA5 
IF-^S 
1F46 
1FA8 

ua 

1FA9 
1F48 
1FA8 
1FA8 
IF'iC 
IFAE 
1FAF 
1F50 
1F52 
1F53 
1F54 
iFS^i 
lF5/» 
1F55 
1F57 
1F57 
1F57 
IF 58 



5411 
5412 
5413 
5414 
5415 
5416 
5417 
5418 
5419 



5420 
5421 



5422 
5423 



5424 
5425 
5426 



5427 
5428 



5429 
5430 



5431 



5432 
5433 
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MSK ERROR R THIS ROUTINE MASKS DATA FROM BOTH THE CON,EXP_DAT AND 
■ CON REC DAT AREAS BY USING THE ERROR MASK DSTA. A ONE 

IN The Error mask indicates that that particular bit is 

NOT OF INTEREST AND SHOULD BE SET TO ZERO. 



173 
(1) 



msk error r: 
.Byte 

.BYTE 



.BYTE 
.WORD 



2182$: 



543-'. 
5435 



5436 
5437 



.BYTE 
.BYTE 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.8YTE 



.BYTE 
.WORD 



.BYTE 
.WORD 

.BYTE 

.WORD 



.BYTE 
.8YTE 
.BYTE 
.BYTE 
.WORD 
.8YTE 
• BYTE 



.BYTE 

.BYTE 



.BYTE 
.WORD 



LXI H,tON EXP DAT ;MOVE MEMORY ADDRESS CON EXP^DAT 
<H*8> II 

<CON EXP DAT-HEAD>6255 , «CON EXP DAT"HEAD>&*XFF00>/256 
" " ; JNTO'THE H,L PAIR. 

;STORE THE ADDRESS OF THE EXPECTED 



SHLD CON EXP ADD 

-^042 

<CON.EXP^ADD-HEAD> 

LXI D,CON^MSK^DAT 

<D*8> ! 1 

<CON MSK DAT-HEAD>B255 



; DATA IN CON EXP DAT. 

;MOVE MEMORY SDDRESS C0N_MSK_DAT 

«CON MSK DAT-HEAD>&'^XFF00>/256 
; 1NT0"THE"D,E PAIR. 



DO 4 

<H*8> : 1 
<DOLOOP"-HEAO>&255 

*O100 I <8*8> ! M 

*0305 : <8*8> 

<A*8> ; 6 . 4&255 

-^0100 ! <M*8> ! A 



LHLD CON EXP ADD 
*052 " " 
<C0N.EXP.ADD-HEAD> 

CALL MSK BYTE 

*0315 

<MSK BYTE"HEAD> 

SHLD" CON EXP ADD 

*042 

<C0N.EXP_ADD-HEAD> 

ENDDO 
<H*8> I 1 

<DOLOOP-HEAD>S255 , 
*05 I <8*M> 
•^0302 

<2182$-HEAD> 
^0301 : <8*8> 
*0100 ! <M*8> ! B 



LXI H,C0N REC.DAT 

<h*8> : 1 
<con_rec.dat-head>&255 

shld con rec add 

'^042 " ■ 
<CON REC.ADD-HEAD> 



;LOOP 4 TIMES TO MASK 4 BYTES OF 
«D0L0OP-HEAD>&*XFF00>/256 



; EXPECTED DATA. 

;MOVE THE MEMORY ADDRESS OF THE BYTE 



; OF EXPECTED DATrt INTO THE H,L PAIR. 
;CALL ROUTINE TO MASK 1 BYTE 



;STORE THE MEMORY ADDRESS OF THE 
; EXPECTED DATA INTO CON.EXP.ADD. 
«DOLOOP-HEAD>S''XFFOO>/256 



;MOVE MEMORY ADDRESS CON.REC.OAT 

«CON REC DAT-HEAD>&*XFF00>/256 
; INTO"THE"HA PAIR. 
;STORE THE ADDRESS OF THE RECEIVED 



7Z-ENKAB-1.5 
.MAIN. 



.MAIN, 





1F5A 


5A38 








1F5A 


5^39 




LXI D,CON MSK D^ 


11 


1F5A 




.8YTE 


<D*8> 11 " ' 


0O*AB' 


1F58 
1F50 
1F5D 


5A40 
SA'il 


.8YTE 


<CON_MSK_DAT-HEAD>S 




1F5D 


5;A2 




DO 4 


21 


1F5D 




.BYTE 


<H*8> ! 1 


00*55' 


1F5E 




.8YTE 


<DOL0OP-HEAD>S255 , 


^6 


1F60 




.BYTE 


*0100 I <8*8> 1 M 


C5 


1F61 




.BYTE 


*O305 ! <8*8> 


OA 3E 


1F62 




.BYTE 


<A*8> 1 6 , 4&255 


11 


iFd'i 
1F65 
1F65 


2183$.' 
5^A3 


.8YTE 


'^OIOO ! <M*'8> 1 A 




1F65 


5AAA 




LHLD CON REC ADD 


2k 


1F65 




.8YTE 


•^052 


0053' 


1F66 




.WORD 


<CON^REC^ADD-HEAD> 




1F68 


5^A5 








1F68 


5^A6 




CALL MSK 8YTE 


CD 


1F6& 




.8YTE 


*0315 


1F78' 


1F69 




.WORD 


<MSK BYTE-HEAD> 




1F68 


5AA7 




SHLD" CON REC ADD 


21 


1F6B 




.8YTE 


*042 


0053' 


1F6C 




.WORD 


<CON_REC.ADD-HEAD> 




U6E 


sae 








1F6E 


54^*9 




ENDDO 


21 


1F6E 




.8YTE 


<H*8> \ 1 


00'5S* 


1F6F 




.BYTE 


<DOLOOP-HEAD>&255 . 


35 


1F71 




.BYTE 


*05 ! <8*M> 


C? 


1f72 




.BYTE 


*O302 


1F65' 


1F73 




• WORD 


<2183$"HEAD> 


CI 


1F75 




.8YTE 


*0301 : <8*8> 


70 


1F76 
1F77 


5450 


.BYTE 


*O100 1 <M*8> ! B 




1F77 


5451 




RET 


C9 


1F77 
IF 78 


5452 


.8YTE 


^0311 




IF 78 


5453 MSK_eYTE: 


MOV B,M 


^6 


IF 78 

IF 79 


5454 


.BYTE 


*0100 ! <B*8> ! M 




IF 79 


5455 




LDAX D 


1A 


IF 79 
1F7A 


5456 


.BYTE 


<D*8> 1 10 




1F7A 


5457 




CMA 


?F 


1F7A 
1F7Q 


5458 


.BYTE 


'^057 




IF 78 


5459 




ANA B 


AO 


IF 78 
1F7C 


5460 


.BYTE 


^^0240 ! B 




1F7C 


5461 




MOV M,A 


11 


1F7C 
1F7D 


5^62 


.BYTE 


'^0100 : <M'*8> 1 A 




1F7D 


546^ 




INX H 


n 


:f7d 




.BYTE 


<H«8> 1 3 




1F7E 


5464 




INX D 


13 


1F7F 




.BYTE 


<D*8> : 3 



L 1^ 
14-JUN-1984 Fi'che 1 Frame LU Seguence 180 

14-JUN-1984 16:08:17 VAX-11 Macro V03-01 Page 

14-JUN-1984 15:49:51 DR80: CBALL .ENKAe]ENKAB.MAC;3 

; DATA IN CON REC ADD. 
J ;MOV MEMORY APDRESS C0N_MSK_DAT 

'55 , «CON MSK DAT-HEAD>&''XFF00>/256 
; ]NT0"THE"D,E PAIR. 

;LOOP 4 TIMES TO MASK 4 BYTES OF 

«D0LOOP-HEAD>&''XFF0O>/256 



174 
(1) 



; RECEIVED DATA. 

;LOAD THE ADDRESS OF THE RECEIVED 



; DATA INTO THE H,L PAIR. 
;CALL ROUTINE TO MASK ONE BYTE 



;STORE THE ADDRESS OF THE RECEIVED, 
; DATA IN CON.REC_ADD. 
«D0L00P-HEAD>&^XFF00>/256 



MOVE A BYTE OF EXPECTED DATA INTO 

REGISTER B- 
MOVE A BYTE OF MASK DATA INTO 

THE ACCUMULAIOf^. 
CHANGE THE MASK POLARITY BY 

COMPLEMENTING THE ACCUMULATOR. 
"AND" THE COMPLEMENTED MASK WITH 

THE REGISTER B CONTENTS, 
MOVE THE MASKED EXPECTED DATA BACK 

INTO THE EXPECTED DATA LOCATION. 
INCREMENT THE D.E AND WX REGISTER 

PAIRS TO POINT AT THE NEXT BYTES 



[ 



7Z-ENKAB-1,5 .MAIN 

.MAIN. 



M 1^ 
U-JUN-198A Fi'che 1 Frame MU Sequence 181 

K-JUN-IPS*!. 16:08:17 VAX--11 Macro V03-01 Page 175 

14-JUN-198'i 15:49:51 DRB0:C8ALI..ENKA8JENKAB.MAC;3 (1) 



C9 



CD 

1FCC' 

^3 D3 
22 D5 

A2 D3 



^1 
00'7?' 

11 
00'84' 

CD 
0F5F' 



18 06 

00'86' 
03 OE 



87 DB 
IF 
7E 
17 
77 



1F7F 

1F7F 

1F7F 

1F80 

1F80 

1F80 

1F80 

1F80 

1F80 

V80 

1F80 

1F80 

1F80 

1F80 

1F80 

1F80 

1F80 

1F80 

1F80 

1F80 

1F81 

1F83 

1F83 

1F85 

1F85 

1F87 

1F87 

1F87 

1F89 

1F89 

1F89 

1F8A 

1F8C 

1F8C 

USD 

1F8F 

1F8F 

1F90 

U92 

1F9? 

1F9P 

If 94 

1F9A 

1F95 

1f97 

1F97 

1f99 

1F99 

IF 99 

U98 

1F96 

1F9C 

1F9C 

1F9D 

1F9D 

1F9E 

1F9E 



5465 
5466 

5467 
5468 
5469 
5470 
5471 
5472 
5473 
.5474 
5475 
5476 
5477 
5478 
5479 
5480 
5481 
5482 



5483 

5484 

5485 
5486 

5487 
5488 

5489 
5490 



BYTE 



RET 
*0311 



; OF EXPECTED AND RECEIVED DATA. 
;D0NE 



WCS READ R THIS ROUTINE READS DATA FROM WCS AT THE LOCATION GIVEN BY 
" WCS ADDRESS. THE DATA IS PUT INTO THE CSR AND SHIFTED OUT 
INTO WCS VALUE FOR CHECKING. AS THE CSR IS READ, IT IS 
LOADED WTTH A NOP INSTRUCTION. 

THIS ROUTINE IS USED BY THE CONSOLE TESTS AND IS TAYLORED 
FOR FAST EXECUTION RATHER THAN VERSITILITY. 



5491 
549? 

5493 1$: 



5494 

5495 
5496 



WCS.READ^R: 

.BYTE 
.WORD 

.BYTE 

.BYTE 

.BYTE 



.BYTE 
.BYTE 

.BYTE 
.BYTE 

.BYTE 
.WORD 



5497 
5498 
5499 
5500 



2S: 



.BYTE 

.BYTE 

,8YTE 

.BYTE 



.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 



CALL LD UPC R 

^0315 " " 

<LD UPC R-HEAD> 

OUT" 

*0323 

OUT 

•^0323 



OUT 
^0323 



SETSS 
SETSS%255 
CLRSS 
CLRSS£255 

VSHJFT 
VSHJFT£255 



LXI H,NOP INST 

<H*8> : 1 

<NOP INST-HEAD>&255 

LXI " D,WCS VALUE 

<D*8> ! 1 

<WCS VALUE"HEAD>£255 , 

CALL" MOVER 3 R 

*0315 

<M0VER_3^R-HEAD> 

MVI 8,24 
<B*8> I 6 , 24&255 

LXI H,WCS VALUE+2 

<H*8> : 1 

<WCS VALUEi2-HEAD>S255 



;LOAD UPC WITH WCS ADDRESS 



SINGLE STEP MACHINE TO LOAD 
register A 

WCS CONTENTS INTO THE CSR. 
register A 



; register A 

;POINT TO NOP INSTRUCTION 

«NOP INST"HEAD>&''XFF00>/256 
;P0TNT TO WCS VALUE AREA 

«WCS VALUE-HEAD>&''XFF00>/256 
;L0At5 WCS_VALUE WITH NOP INST 



MVI 
<C*3> 

IN 
*0533 

RAR 

"037 

MOV 

"0100 

RAL 

"0?7 

MOV 

'^0100 



C,3 

6 , 3&255 

CSR23 
CSR25&255 



A,M 
<A»8> 



:i,A 

<M'8> 



M 



;LOOP COUNT IN REGISTER B 

;POINT TO END OF WCS_VALUE AREA 

, «WCS VALUE+2-HEAD>&*XFF00>/256 
;BYTE fOUNT 

;GET CSR BIT 23 

; to register A 

.-ROTATE CSR 23 INTO CARRY 

;MOV WCS.V.aLUE INTO ACCUMULATOR 

;CARRY GOES IN BIT 

;MOV ACCUMULATOR BACK TO MEM 



JZZ-ESt^AB-1.5 .MAIN. 

I. MAIN. 



N U 

U-JUN-'I98^ 



F 



U"JUN-198^ 
U-JUN-198A 



?B 

OD 

C2 
1F9C' 

38 D3 

1FA8' 

39 D3 

25 D3 
2i* D3 

05 

r.? 

1 r -y. ' 
A3 03 
C9 



CD 
IFCC 



oo'e6' 



08 D5 
28 



1F9F 

1F9F 

1FA0 

1FA0 

1FA1 

1FA1 

1FA? 

IFAA 

1FAA 

1FAA 

1FA6 

1FA6 

1FA7 

1FA9 

1FA9 

1FA8 

1FA« 

1FA8 

1FAD 

1FAD 

1FA0 

1FAF 

1PAF 

1FAF 

ueo 

1F80 

uei 

1F83 
ir83 
1F85 
1F85 
IFBS 
1FB5 
iFBo 
1FB6 
1F96 
1F86 
1F86 
U86 
1F86 
iF86 
1F86 
1FB6 
1Fe6 
1FB7 
lFe9 
U89 
V89 
If 8^ 
U8C 

use 
■:r8C 
U8n 

■FSD 
:p8F 



5501 
5502 
5503 



5504 
5505 

5506 



5507 

5508 
5509 

5511 

551^" 
5513 

55K 



5515 
5516 

5517 
5518 

55'9 
5520 
5521 
55?? 
55?3 
5524 
55?5 
5526 
5527 

5528 



5529 
5530 



5552 
5533 
5534 
555:. 



6$: 



.BYTE 

.BYTE 

.BYTE 
.WORD 

.BYTE 

.8YTE 
.WORi) 

.8YTE 
.BYTE 

.BYTE 

.BYTE 

.WORD 

.8YTE 

.BYTE 



DCX 
<H*8> 

DCR 

*05 : 

JNZ 

"030? 

<2$"HEAD> 



H 

i 11 

c 

<8*C> 
2$ 



icKe 1 Frame NU Sequence 182 
16:08:17 VAX-11 Macro V03-01 Page 176 
15:49:51 DRB0:CBALL.ENKAB]ENKAB.MAC;3 (1) 



POINT TO NEXT BYTE 

DEC BYTE COUNT 

REPEAT UNTIL 3 BYTES DONE 



OUT CLRCSR 

*0323 , CLRCSR&255 

JNC 6$ 

"0322 

<6$-HEAD> 

OUT SETCSR 

'^0323 . SETCSR&255 



OUT 
"0323 

OUT 
"0323 



SETCSK 
SETCSK&255 

CLRCSK 
CLRCSKS255 



DCR B 
"05 I <8*6> 
JNZ 1$ 
"030? 
<1S"HEAD> 



OUT 
"0323 

RET 
"0511 



VNORML 
VN0RMLS255 



;CLEA'' CSR INPUT 

/register A 

;D0N'T SET INPUT If CARRY CLEAR 



/ELSE SET CSR INPUT 
/register A 

;CL0CK CSR TO SHIFT IT AND ALSO LOAD 

/register A 

; NOP INSTRUCTION 

/CLEAR UPC CLOCK 

/register A 

/DECREMENT SHIFT COUNT 

, REPEAT U.V'TIL i^ BITS SHIFTED 



/RETURN TO K '^AL MODE. 
/reQister A 



WCS WRITE R THIS ROUTINE WRITES ^AT'i FROM WCS VALUE TO WCS AT THE 
" LOCATION GIVEN BY WCS.ADDRESS. 

«*«»»«**1«*«*(*****************t********* ******************** ■fr**********'**-*'*!*** 



w>:s WRITE R: 
.Syte 
.WORD 



.BYTE 
,8YTc 



.BYTE 
■ BYTE 
.BY^-E 



CALL LD UPC R 

"0315 

<:LD_UPC„R-HEAD> 

LXI H,WCS VALUE+2 

<H*8> : 1 

<WCS.VALUE+2-HEAD>S255 

MOV A.M 

"0100 1 <A*8> 1 M 
CUT WCS60 

"0523 , WCSB0S255 
DCX H 

<H*8> : 11 



/LOAD UPC WITH WCS ADDRESS 

/POINT AT THE LOW BYTE. 
«WCS„VALUE+2-HEAD>&"XFF00>/256 
/MOVE THE LOW BYTE TO WCSBO. 

/register A 



.VAIN. 



.^AIN. 



B 1S 
U-JUN-1 



Sequence 18^ 
VAX-11 Macro v05-0i Page T77 



984 Fie he 1 Frame B1? 

U-JUN-198A 16:08:17 . 
U-JUN-1 984 15:49:51 DRB0:[BALL.ENKA8JEN<AB.MAC;3 



tl) 



71 

09 D3 

28 

7F 
OA D3 

3b r.3 

C9 



2A 
006C* 



-1 -, 



OOC?' 



00'C3' 
0? OE 



A? 03 

OF 06 



1FC0 
1FC0 
1FC1 
1FC1 
1FC3 
1FC3 
1FC4 
1FC4 

ncA 

IFCS 
1FC5 
|PC7 
1FC7 
1FC7 
'!FC9 
UC9 

uce 

IFCB 
IFfC 
UCC 
IFfC 
TFCC 
UCC 
1FCC 

1 f C f ■ 
IFfC 

IF CO 
1FCF 
IFCF 
1FD0 

^m 

1FD? 
HD5 
IFTS 

:^D7 

IFlJ^ 
^FD8 
UpA 
7FDA 
1FDA 
IF DA 
^f DC 
If DC 
^^DE 
1FDE 
1FDE 
]FDF 
IFE^ 
IFE' 
1FE5 
VE^ 
^Ff ^ 



5536 
5537 
5538 

55r. 

5540 

5541 

554? 
554^ 

5544 

5545 
5546 

5547 

5548 
5549 

5550 
5551 
555? 
5553 
5554 

5555 



5556 
555?^ 



5S58 
5559 



5560 
5561 
556? 

5563 

5564 
5565 



5566 



5568 
5569 



.BYTE 
.BYTE 
.BYTE 

.BYTE 
■ BYTE 

,BVTE 
.BYTE 

.BVTE 



MOV 

*0100 

OUT 

*0323 

OCX 

<H*8> 

MOV 
*0100 
OUT 
'^0323 

OUT 
*03P3 
OUT 
*0323 

RET 

*0311 



M 



A,M 
<A*8> 

WCS81 
WC58U255 

H 
11 



M 



A,M 

<A«8> I 
WCSB? 
WCS82£255 



SETWCK 
StTUlCKR255 
CLfifWCK 
CLRUCKB255 



;MOVE THE NEXT BYTE TO WCSBL 
;register A 

;MOVE THE HIGH BYTE TO WCSB2. 



.•register A 

;WRITE TO WCS. 
/register A 

;''egister A 



•******^'t'»*»ww»««»»i»«»'*'»*i**r*'************************************************** 



LD.UF^C.ft 



THIS ROUTINE '.O^DS THE UPC WITH WCS ADDRESS 



*•*»*•*******♦****♦*****»*•*•** ***********************************v********* 



ID UPC P. LHLD WCS ADDRESS 
■ " .BYTE *05? 

,UORu <WCS ADDRESS-HEAD> 

SHLD" UPC VALUE 
.BYTE *042 
.WORD <UPC_VALUE-HEAD> 

LXI H.UPC VALUE+1 
.BYTE <H*8> ! 1 
.BYTE <UPC VALUE*1-HEAD>%255 

MVI " C? 
.BYTE <C»8> : 6 . ?£?55 

CALL SHIFTER1 R 
.BYTE *0315 
.WORD <SHIFTER1 R-HEAO> 



OUT VSHIFI 

.BVTE *0323 , V5HIFT&?55 

MVI B,15 

.BYTE <B»8> 1 6 , 15S255 

3$: LXI H,UPC VALUE+1 

.BME <H»8> : 1 
.BYTE <UP': VALUfc»l-HEAD>6?55 

Mvl ■ C? 

.BYTE <C*3> : 6 , ?£?55 

n: MOV A,M 

.BYTE *0^00 : :A*8> : M 
RAL 



;UPC DATA 



; STORE DATA IN UPC.VALUE 



;POINT TO END OF UPC.VALUE AREA 

, <<UPC VALUEfl-HEAD>&'*XFF0O>/?56 
;BYTE fOUNT 

;LEFT JUST. 15 BITS WITH COUNT 



; IN REGISTER C 

;S£T V-8US SHIFT MODE 

.-register A 

;SHIFT COUNT=SHIFT 15 BITS 



.•POINTER TO END OF UPC DATA 

, <<UPC VALUE*l-HEAD>&*XFF0O>/256 
;LOAD SyTE COUNT WITH 2 



.-MOVE BYTE 1 LEFT 

;CARRY = ROTATE IN BU NEXT 8TYE 



|ZZ-EN<AB"1.5 .MAIN, 

i.MAIN. 



C 15 



F 



17 


1FE4 






1FE5 


5570 


11 


1FE5 






1FE6 


5571 


28 


1FE6 






1FE7 


5572 


OD 


1FE7 






1FE8 


5573 


C2 


1FE8 




UE3' 


1FE<5 






IFEB 


5574 




1FE8 


5575 


A8 D3 


1FE8 






TFED 


5576 


D2 


1FE0 




1FF2' 


1FEE 






1FF0 


5577 


A9 D3 


1FF0 






uf:^ 


55^8 




1FF2 


5579 


^^ 0^ 


IFF? 






IFF^ 


5580 


It 03 


1FF4 






1FF6 


5581 




UF6 


5582 


05 


UP6 






\^\1 


5583 


c? 


1FF7 




IFDE' 


1FF8 






1FFA 


5584 




UFA 


5585 


A3 D3 


1FFA 






1FFC 


5586 




1 F F C 


5587 


C9 


1FFC 






IFFD 


5588 




1FFD 


5589 




IFFD 


5590 




UFD 


5S91 




iFfp 


5592 




1FFD 


5593 




IFFP 


5594 




■JF^D 


559S 




IFFD 


5596 




IFFD 


5597 



2$: 



,8YTE 

.BYTE 

.BYTE 

.BYTE 

.BYTE 
.WORD 

.BYTE 

.=9YTE 
.WORD 

.BYTE 

.8YTE 
.BYTE 

.BYTE 

.BYTE 
.WORD 

.BYTE 

.BYTE 



U-JUN-1984 
14-JUN-1984 



*027 

HOV 

^0100 

DCX 

<H«8> 

OCR 

*05 I 

JN2 

-^0302 

<1$-HEAD> 



M.A 
! <M*8> 

H 

: 11 
c 

<8*C> 

1$ 



OUT CLRUPC 

*0323 , CLRUPC&255 

JNC 2$ 

*0522 

<2$-HEAD> 

OUT SETUPC 

*0323 , SETUPC8255 

OUT SETUPK 

*0323 . SETUPK&255 

OUT CLRUPK 

*0323 , CLRUPK&255 

OCR B 
*05 ; <8*8> 
JN2 3$ 
*0302 
<3$-HEAD> 



OUT 
*0323 

RE I 
-0311 



VNORML 
VN0RML&255 



ic'ie 1 Frame CI 5 Sequence 184 

16:08:17 VAX-1 1 Macro V03-01 Page l^'S 

15:49:51 DftaO;CBALL.EMKAB]ENKAB.MAC;3 (D 



MOVE POINTER TO NEXT BYTE 

DEC BYTE COUNT 

REPEAT UNTIL 2 BYTES i>HlFTED 



SET UPC SER 1N=0 IN CASE CARRY CLR 

register A 

SKIP NEXT INSRUCTiON IF CARRY CLR 



;ELSE SET UPC SER IN=1 
;register A 

;SET UPC CLOCK 
; register A 
; CLEAR UPC CLOCK 
; register A 

.■DECREMENT SHIFT COUNT 

.•REPEAT UNTIL 15 BITS SHIFTED 



;SET V-BUS TO NORMAL MODE 
.•register A 



END. CHECKSUM: 

NOTE; THE LAST ADDRESS OF THIS PROGRAM MUST NOT EXCEED 6FFF. THE 
8085 BASED Ml CRODIAGNOSTIC OVERLAYS LOAD STARTING AT 7000 HEX!! 11 

************************* 4****************»********«*******»*******»****t** 

.END 



15 



iZZ-ENKAB-1.5 

I.MAIN, 
jS/mboi. table 

I 

ABORT A 

ACK S^VE 

jAODR 

ALIOWP 

APT 

APTFLG 

APT C DEf 

apt"eRror number 
apt"haro Tlg 
apt'mail-box 
apt"mem Size 
apt2mes5age code 
apt_param 
apt pass cnt 
apt'ram ld add 
apt"sofT flg 
aptIsubtPst 

APT S DEF 

apt'tFst number 

ASCTi 1 
ASCI 1*2 
ASCII 3 

ascii"t0 bin 
attention 
att upc save 
autD 
auto test 

A ADDRS 
8" 
BAD A 

bad"status 
bad'tape a 
begTn chFcksum 

BEGJN'QF TEST 
BEG T?T 

bell c def 

bell"s'def 

board Buf 

board'name 

board'num 

board"pnt 

board"table 

BOOTEfy 
BOOTF 
BYT SUM 
B AODRS 

C" 

CALC ADD 

CC aDdr 
change WCS 
checksDm 
check cnt^c 
check"err ^0 

rnEC<"ERR"FtG 



Symbol table 







14-JUN-1984 


Fiche 


I Frame D15 


Sequence 185 








14-JUN- 


■1984 16:08 


:17 VAX-11 Macro V03-01 Page 


179 






14-JUN' 


-1984 15:49 


:51 DRB0:CBALL 


-ENKAB3ENKAB.MAC;3 


(1) 


00000006 




CHECK LS SETPAR 




0000197D R 


01 




00000006 




check"upC 




00001873 R 


01 




00000007 




CHECK WCS LOADED 




00000C2A R 


01 




00000164 R 


01 


clearPar Err 


— 


00000008 






000001 7A R 


01 


CLEAR CPO ATT 




000001 2F RG 


01 




00000001 




CLEAR CPU ATT R 




00001A61 R 


01 




00000003 




clear"defAult" 




00000B8F R 


01 




00000038 R6 


01 


CLEAR"LS STAT 




000012D8 R 


01 




00000004 




CLEAR"PAR INT 




0000 16D9 R 


01 




OOOOOODF 




CLRACR ~ 


— 


000OO0A9 






00000012 R 


01 


CLRACL 


— 


00000033 






0000001 d R 


01 


CLRAT^J 


= 


OOOOOOAB 






00000010 R 


01 


CLRBSY 


— 


0000002E 






0000001C R 


01 


CLRCLK 


— 


00000020 






00000010 R 


01 


CLRCSK 


= 


00000024 






00000049 




CLRCSR 


— 


00000038 






00000018 RG 


01 


CLRDCL 


— 


00000031 






00000009 R 


01 


CLRHLT 


= 


OOOOOOAF 






0000001 E R 


01 


CLRLIT 


= 


0000003C 






OOOOOOK R 


01 


CLRMCI 


— 


00000029 






00000020 




CLRMCK 


= 


00000028 






00000016 R 


01 


CLRPFI 


~ 


OOOOOOAD 






00000178 R 


01 


CLRSS 


= 


00000022 






00UO017C R 


01 


CLRTIM 


~ 


000OOOA5 






000001 7D R 


01 


CLRTMR 


— 


0000002C 






00OOOE15 R 


01 


CLRUPC 


= 


00OOO0A8 






00001321 R 


01 


CLRUPK 


- 


00000026 






OOOOOOCC R 


01 


CLRWCK 


= 


00000036 






00000005 




CNT 


= 


00000887 






0000U24 R 


01 


CNTA 


— 


0OOO0FA7 






00000163 R 


01 


CNTLC TYPED 




00000039 RG 


01 




00000000 




CNTLC"VEC 




00001063 R 


01 




000001 7E R 


01 


CNTLP VEC 




00001070 R 


01 




00000010 




CNT PM 




00000254 R 


01 




00000199 R 


01 


COMHANDO 




OOOOOOAF R 


01 




0000098A R 


01 


C0MMAND1 




OOOOOOBO R 


01 




00001881 R 


01 


C0MMAND2 




00OO00Q1 R 


01 




00000080 




C0MMAND3 




OOOO00B2 R 


01 




OOOOOOFB 




COMPARE 




OOOOOOCF RG 


01 




00000004 




COMPARE R 




0OOOOF55 R 


01 




00000247 R 


01 


CONACK " 


r 


00000020 






00000241 R 


Qi 


CONATT 


= 


OOOOC010 






0000024D R 


01 


CONHLT 


— 


00000002 






0000024E R 


01 


CONSOLE TEST 




00000255 R 


01 




00000846 R 


01 


CONTINUE 




0000003A R6 


01 




00000007 




CONT COMMAND 




OO0OOB46 R 


01 




00000001 




CONT"DONE 




00CO0256 R 


01 




00004082 




CONT'SAVE CSR 




0000008E R 


01 




00000240 R 


01 


CONT"SAUE'UPC 




OOOOO0C8 R 


01 




00000001 




CON Add dAt 




00000038 RG 


01 




00000252 R 


01 


CON'BEGTN TEST 




00000123 RG 


01 




OOOOOOFE G 




C0N"8EG1N TEST R 




00001EC9 R 


01 




ooooocid R 


CI 


CON"ERROR" 




00000120 RG 


01 




000018E9 R 


01 


CON'ERROR R 




00001F14 R 


01 




00001073 R 


01 


CON"ERR nOm 




0000003F RG 


01 




00000C3A R 


01 


con'exp"add 




00000044 RG 


01 




0COOOC3C R 


01 


CON"EXP"DAT 




00000040 R6 


01 
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CON LOOP 


= OOOOOOOA 




CON MOD DAT 


000000^6 RG 


01 


CON MSK"DAT 


00000048 R6 


01 


CON'NAME ADD 


= 00007005 




con"ram " 


= 00000080 




CON"REC ADD 


00000053 RG 


01 


CON-REC-DAT 


OOOOOOAF RG 


01 


CON"VER ADD 


= 00007003 




cpaTtn ■ 


= 00000083 




CPUACK 


= 00000082 




CPU A 


00000257 R 


01 


CR ~ 


= 00000000 G 




CRD FLAGS 


= 000040FD 




CRD'OPT A 


00000825 R 


01 


crlF 


OOOOOODE RG 


01 


CRLF A 


00000256 R 


01 


CRLF'R 


0000101A R 


01 


CSR07 


= 00000085 




CSR15 


= 00000086 




CSR23 


= 00000087 




CSR CNT 


0OOOO25D R 


01 


CSR"SHIFT 


000000B7 RG 


01 


CSR"VALU£ 


00000088 RG 


01 


ctlCis 


= 000040FE 




C EXECUTE 


00000250 R 


01 


C RUNNING 


00000251 R 


01 


D 


= 00000002 




DATAO 


000000A9 RG 


01 


DATA1 


OOOOOOAA RG 


01 


DATA2 


000000A8 RG 


01 


DATA3 


OOOOOOAC RG 


01 


DATA SHIFI 


000000A8 RG 


01 


DATA'XFER 


00001996 R 


01 


DATA'XFER FLG 


0000025E R 


01 


DCLO" 


= 00000002 




DECR WORD 


00000135 RG 


01 


DECR'WORD R 


00001 2BC R 


01 


diag'boarP 


OOOOOAOf R 


01 


DIAG'COMMAND 


00000998 R 


01 


0IAG"CONTIN 


0000080E R 


01 


DIAG'PASS 


000006U R 


01 


DIAG"SECTION 


00OOOA5D R 


01 


D I AG" TAB 


00000960 R 


01 


DIAG'TEST 


OOOOOACA R 


01 


DIR VECTOR 


= 0000411 A 




DlSflEM 


= 000000A7 




D I SPAR 


= OOOOOOAl 




DOLOOP 


00000055 RG 


01 


DO^ A 


= 0000002E 




DO Commands 


00001 37F R 


01 


E 


= 00000003 




EMEMREF 


-- 00000040 




ENBMEM 


= O0OO0OA6 




ENBPAR 


= OOOOOOAO 




END A 


00000262 R 


01 


END'CHECKSUM 


00001FFD R 


01 


enkCc a 


000002r9 R 


01 
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ENKCE A 

ENKCF'A 

ENKCG"A 

ENKCH"A 

ENK ERO 

EOP" 

EOS 

EOS FLG 

ERROR 

ERROR A 

ERR0R"CON 

ERROR"ROUTINE 

ERROR"ROUT1NE NO RET 

ERR MfNU 

EXECUTE 

EXEC CONTESTS 

EXEC'SUB 

EXEC'TESTO 

EXT H 

FAJC a 

FAST"WRITE 

FILE"L0ADED 

FLAGS 

FLAG LOG 

F0UR"BYTES 

FPA S 

FPA"PRES 

FULL ERROR 

F W0f5D 

gCvect 

GLVECT 

GSVECT 

H 

HALT C DEF 

HALT^S'DEF 

HAVE CRT 

HEAD" 

HEADER A 

HEX OD 

HEX 1 

HEX'10 

HEX"1F 

HEX"20 

HEX 21 

HEX"2D 

HEX"3 

HEX"30 

HEX"3A 

HEX"3F 

HEX 4 

HEX"40 

HEX"41 

HEX"50 

HEX"7 

HEX"7F 

HEX"8 

HEX"80 



000002CE 

000002D8 

000002DD 

000002D3 

0000025F 

0000183E 

00000040 

00000056 

000002E2 

000002E3 

00000057 

00000C4A 

O00O0C45 

00000D21 

000002EA 

00007000 

00000B7D 

000016A1 

000002E8 

000002EF 

000002FC 

000002FD 

0000005A 

O00OOU48 

00001A29 

000002FE 

00000010 

0000154A 

00000058 

00004129 

00004123 

00004145 

00000004 

000000F7 

00000008 

0000033D 

00000000 

00000302 

OOOOOOOD 

00000001 

00000010 

0000001 F 

00000020 

00000021 

0000002D 

00000003 

00000030 

0000003A 

0000003F 

00000004 

00000040 

00000041 

00000050 

00000007 

0000007F 

00000008 

00000080 



R 
R 
R 
R 
R 
R 

RG 

R 

R 

RG 

R 

R 

R 

R 

R 
R 
R 
R 
R 
R 
RG 

R 
R 

R 

RG 
G 



R 



01 
01 
01 
01 
01 
01 

01 
01 
01 
01 
01 
01 
01 
01 

01 
01 
01 
01 
01 
01 
01 

01 
01 

01 
01 



01 
01 
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HEX BUf 
HEX-fD 
HEX'FF 
HLTFlG 
IDC A 
IDC"PRES 
INC"TE«PW 5 
INC-WORD 

inc'word r 
iniTh 

INITL 

INPUT CHAR IF 

INPUT"LINE~ 

INPUT'NUM 

INPUT~NUM CHECK 

INPUT"NU«"IF 

INSTR"LEN" 

INSTR"PNT 

INSTR'TABLE 

INT CLEAR PAR 

INVTIM 

ITCSR 

ITDB 

L 

LD UPC 

LD UPC R 

LE^VE 50 

LF 

LITERAL 

LOADER 

LOAD CSR 

LOAD*"CSR R 

LOAO'SECTlON 

load"lpc 
load"upc r 
loopFr 

LOOPING 

LOOP CNT ADD 

LOOP"COH C DEF 

LOOP'COM"S"DEF 

LOOP'COuRTfR 

LOOP"C DEF 

LOOP"S"DEF 

LS 5" 

LS 6 

LS 7 

LS F 

ls parerr act 
ls"setparErr 

Lvr 

M 

MISTKI 

M1STK? 

M1STK3 

MACSTKI 

MACSTK^ 

MACSTK3 



Symbol table 



F 15 
U-JUN-198A Fiche 1 Frare F15 

U-JUN-198A 16:08:17 VAX-11 Macro 



Sequence 187 
V03-01 Page 



A-JUN-1984 15:49:51 DRB0:CBALL.ENKAB]ENKAB.MAC;3 



181 
(1) 



0000005B 

OOOOOOFD 

OOOOOOFF 

00000002 

0000053E 

00000080 

00001 2A5 

00000108 

00001261 

00000035 

0000003A 

0000105C 

0000102E 

00000676 

00000C37 

0000009B 

00000344 

00000345 

0000067A 

OOOOOBBB 

00000008 

0000001 D 

0000001 C 

00000005 

00000117 

00001FCC 

00001B71 

OOOOOOOA 

00000001 

00OO0B39 

OOOOOOFO 
00000EE7 

00001 A8B 

0OOOOOF3 

00000F19 

00001 7Dr 

00000002 

00000047 

OOOOOOBF 

00000040 

00000347 

OOOOOOBE 

00000001 

00000005 

00000006 

00000007 

OOOOOOOF 

00000349 

00000348 

00000000 

00000006 

00000FA6 

0OO0OFA4 

00000FA7 

00000887 

00000885 

00000881 



RG 



R 

R 

RG 

R 



RG 
R 
R 
G 

R 

RG 

R 

R 

RG 

R 

R 



01 



01 

01 
01 
01 



01 
01 
01 
01 
01 
01 
01 
01 
01 



01 
01 
01 



01 
01 
01 
01 
01 
01 
01 



01 



01 
01 



MACSTK4 

MACSTK5 

MACSTK6 

MACSTK7 

MAIN TAB 

MAKE^A 

MAKE B 

MAKE'XD 

MAKE'XD R 

MAX 5BE 

MCPO a 

MEMORY A 

MEM RES 

MEND 

MENU A 

MFPA A 

MJCFCAG 

MICRO STEP 

MICRO STEPER 

MICRO STEP CPU 

MICRO^STEP^CPU^R 

MIDC A 

MINUS 

MINUTES.A 

MISC2 

MMCT A 

M'^EM"A 

MM OR LS 

M«"SI7E 

MOP ERR 

mod not pres a 
mod'preS a 
mod'pres flg 
more dats 

MOVER 

MOVER 3 

MOVER 3 R 

M0VER"4" 

MOVER 4 R 

MOVER"R 

MOV dStao HEXBUF 

MOV"FROM CATAO 

MOV" INPUT DATAO 

MOV"LOAD SECTION 

MR8D A " 

MRL02^A 

MSK B7TE 

MSK'ERROR 

MSK"ERROR R 

MWCS A 

NA " 

NAME PNT 

NAME"TABLE 

NA A" 

NA*"EXP REC 

NA"OTHfR 

NEB CNT 



00000878 

00000879 

0000087C 

0000087B 

00000931 

00001 1A8 

00001195 

000001 OB 

00001183 

0000034A 

00000140 

0000034D 

00000354 

00001616 

00000355 

000001 4A 

0000002E 

0000038A 

00001257 

00000138 

00001 2A0 

00000154 

0000038B 

00000i8C 

00000001 

00000145 

000001 4F 

00000001 

00000008 

00000395 

00000396 

000003A6 

00000001 

000003AF 

000000D2 

0000011 A 

00000F5F 

000001 1 1 

OO00OF73 

OOO0OF75 

00000F6D 

00000F70 

00000F64 

00001A80 

000001 5E 

00000159 

00001 F 78 

000001 ID 

00001 F 31 

000001 3B 

00000080 

000003BA 

0000076F 

000003B0 

0000005F 

00000060 

00000080 



R 

R 

R 

RG 

R 

R 

RG 

R 

R 

R 

R 

R 

R 

R 

R 

RG 

R 

R 

R 

R 

R 

R 



R 
R 
R 

R 

RG 

RG 

R 

RG 

R 

R 

R 

R 

R 

R 

R 

R 

R 

RG 

R 

RG 

R 

R 

R 

RG 

RG 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 

01 
01 



01 
01 
01 

01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 

01 
01 
01 
01 
01 
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NER C DEF 
NER"S DEF 
NEWSUR 
NOADD FL6 
NOCHK" 
NOINIT 
NOP CSR 
NOP"CSR R 
NOP" INST 
NOT"FOUND 

NO Return 

NO'SAVE UPC CSR 
NO SPACE 

nur shift 
oflSg 

0KV15 

OLDSUM 

OLD TEMP BUF 

OLD"TTBUF 

OPTIONAL TST 

OR A 

OS^ADD 

overlay ram 
uverlay'wcs 

PACK ERROR 
PACK"WARNING 
PAR ~ 
PARDONE 
PARITY CALC 

parity"err 
parity"jump 

PARITY"0N 
PARSER" 
PARSE PNT 
PARSE'TABLE 
PAR OR 

par"temp buf 
par"vect" 

PASS A 
PASS'CNT 
PERFORM CSR 
PERF0RM"CSR R 
POWER BRANCR 
POWER"REC 
POWER SEQ 
PRINT 
PRINTER 
PRIN" CNT 
PR1NT"CSR VAL 
PRINT"FLG" 
PRINT HEX 
PRINT"HEX 1 

print^hex"! r 

print^hex-^' 

print"hex"a 

print"hex"r 

print"mod"pres 
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OOOOOOBD 




00000002 




000003BC R 


01 


000003BD R 


01 


OOOOAOFF 




000003BE R 


01 


000000E4 RG 


01 


OOOOOECA R 


01 


00000072 RG 


01 


000003C2 R 


01 


0000030F R 


01 


000003CO R 


01 


000003C1 R 


01 


00000675 R 


01 


000040BB 




00000007 




000003CF R 


01 


000003C3 R 


01 


000003CI) R 


01 


00000040 




000003D0 R 


01 


0000007C G 




00000003 RG 


01 


00000006 RG 


01 


000003D5 R 


01 


00001 65B R 


01 


00001 D6E R 


01 


000003D9 R 


01 


000008C8 R 


01 


00001 93A R 


01 


00000061 RG 


01 


00000064 R(. 


01 


00001 DAE n 


01 


000003DA ; 


01 


000003DC 


01 


000003D6 ' 


01 


00001 D6r ^ 


01 


000003D . 


01 


000003r R 


01 


OOOOOJ^ . R 


01 


QOOOOi ,) RG 


01 


00001. ^ R 


01 


000000-. RG 


01 


00001 COc : 


01 


00000018 




0OOOOOD5 RG 




00001007 R 


CI 


000003EC R 


01 


00OO0D8C R 


01 


0OOO0F7E R 


CI 


00000008 RG 


01 


00000114 RG 


01 


00O00F94 R 


01 


0OO0OF8F R 


01 


0OOOOF8A R 


01 


0OOOOF96 R 


01 


00001723 R 


01 



PRINT MOD PRES.IDC 
PRINT PASS 
PRINT PNT 
PRINT PROMPT 
PR1NT"R 
PRINT"SINGLE 
PRINT START 
PRINT"STR1N6 
PRINT STRING APT 
PRINT"STRIN6"R 
PRI STACK 
PRT'MOO A 
PR HEX BIGIT 

pwRfaiC 

R80 PRES 

ram"load add 

REAC 

read J 1 

READJ2 

READ DATA 32 

READ'DATA""32 R 

READ'LS 

READ"LS 7 

READ LS R 

READ"WC5 

READ'WCS DATA 

READ"WCS"R 

REMOTE 

RESET TIMOUT 

RESTART 

RESTART CPU 

RESTORE'WR 

RETRY ICC2 

RETURR I 

RETURN"N 

RETURN"T 

RET VECTOR 

RL02„A 

ROM Si ADDRS 

RSVFCT 

RUNNING 

SAVED. CSR 

SAVED UPC 

SAVE Or 

SCVEfT 

SECTION B NUM 

SECTION FCAG 

SECTION NAME 

SEC LEN 

sec parmb add 
sec"parmb:def 
sec parmb dst 

ScC"PARMB ERR 
SEC"PARMB EXT 
SEC"PARHB"NAM 
SEC'PARMB"UNIT 
SEClTABLE 



00001742 

000003ED 

000003EE 

00000FD6 

00001027 

000016EA 

000003FO 

000001 OE 

00001014 

00001 OOE 

00004080 

000001 3B 

00000FC9 

00000004 

00000080 

00007000 

00000080 

00000003 

00000004 

OOOOOOFC 

00001 1B4 

00000102 

00001165 

00001167 

00000OE7 

00001A4E 

OOO0OE6D 

00000006 

00001932 

000003F1 

00001 10E 

OOOOOCOA 

000003F2 

00000766 

000007ED 

00000820 

000041 4D 

000003FE 

OOOOOOOB 

000041 3D 

00000403 

OOOOOOBB 

0OO0OOC4 

00000C11 

00004138 

00000404 

00C008C9 

000008CA 

00000006 

00004111 

00004150 

00004115 

00004116 

000041 OD 

00004107 

00004106 

0000085F 



R 

R 

R 

R 

R 

R 

R 

RG 

R 

R 

R 
R 



RG 

R 

RG 

R 

R 

R6 

R 

R 

R 
R 
R 
R 
R 
R 
R 
R 

R 



01 
01 
01 
01 
01 
01 
01 
01 
01 
01 

01 
01 



01 
01 
01 
01 
01 
01 
01 
01 

01 
01 
01 
01 
01 
01 
01 
01 

01 



01 
01 
01 
01 

01 
01 
01 



R 



01 
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SER C OEF 


= OOOOOOEF 




STEP CNT 


00000409 R 


01 




SER^S^DEF 


= 00000010 




STNDRD CON 


= 00000000 






setScR 


= 000000A8 




STNDR0"C0N COM 


0000098A R 


01 




SETACK FLG 


00000405 R 


01 


STNDRD"CON COM SUC 


00000991 R 


01 




SETACL~ 


= 00000032 




STOP CPU 


000010C9 R 


01 




SETATN 


= ooooooaa 




SUB ATTENTION 


00001806 R 


01 




SETBSY 


= 0000002F 




SYM" 


= 00000887 






SETCLK 


= 00000021 




SYMA 


= 0OOOOFA6 






SETCSK 


= 00000025 




SYNTAX ERROR 


000018E0 R 


01 




SETCSR 


= 00000039 




S READ"LS 


00000667 R 


01 




SETDCL 


= 00000030 




s"writE LS 


00000672 R 


01 




SETHLT 


^- ooooooae 




TRBLE MODE 


0000040B R 


01 




SETLIT 


= 0000003D 




TA8LE"PNT 


0000040C R 


01 




SETMCl 


= 00000028 




TEMP BUF 


0000040E R 


01 




StTMCK 


= 0000002A 




TEMP"BYTE 


00000418 R 


01 




SETPAR ERR 


= 00000002 




TEMP'FLAG 


000004 IF R 


01 




SEIPFI" 


= OOOOOOAC 




TEMP SECTION 


00000420 R 


01 




SETSS 


= 00000023 




TEMP"WORD 


00000419 R 


01 




SETTIM 


= 000000A4 




TEMP"WOR01 


000004 IB R 


01 




SETTMR 


= 0000002D 




TEMP"'W0RD2 


000004 ID R 


01 




SETUPC 


= 000000A9 




TEST NUM 


00000426 R 


01 




SETUPK 


= 00000027 




TEST NUM1 


00000427 R 


01 




SETWCK 


= 00000037 




TEST"NUM2 


00000428 R 


01 




SET ALL TESTS 


00001 EBA R 


01 


TEST START A 


00000429 R 


01 




SET~FOR"CONT 


0000012C RG 


01 


TEST^ZERO " 


00000447 R 


n 




SET"FOR~CONT R 


00001078 R 


01 


TIMER VEC 


00001C23 R 


01 




SJT"LS 5TAT - 


000012CE R 


01 


TIME PNT 


00000448 R 


01 




set"pardone 


00001 C06 R 


01 


T]ME"TABLE 


00000802 R 


01 




SET"PAR INT 


000016C7 R 


01 


tjmoOt 


0000 iO07 R 


01 




set'sigRals 


00001760 R 


01 


timout cnt 


000004vA R 


01 




shiTter 


O00000E1 RG 


01 


TRACE " 


0000044C R 


01 




SHIFTERI 


00000132 RG 


01 


TT8UF 


000008D1 R 


01 




SH1FTER1 R 


OOOOOECl R 


01 


TT8UF CNT 


000008DO R 


01 




SHIFTER R 


00000EB8 R 


01 


TT8UF"PNT 


0000044D R 


01 




SHIFT l"2901 


000000F6 RG 


01 


TTCR " 


= 0000004B 






SHIFT^l"; ^01 R 


00001 2A9 R 


01 


TTDB 


= 00000048 






SHIFT"PFi^ 


00000068 RG 


01 


TTMODE 


= 0000004A 






SHIFT-R 2901 


000000F9 RG 


01 


TTSR 


= 00000049 






SHlFT^R'^gOl R 


00001250 R 


01 


TU58 DRIVER 


= 00004117 






signaC " 


- 00000001 




TUCR" 


= 00000047 






SINGLE ERR 


= OOOOOOOA 




TUDB 


= 00000044 






SKIP CRT 


00000406 R 


01 


TUMODE 


= 00000046 






SKIP~TEST 


0000006A RG 


01 


TUSR 


= 00000045 






SKIP"T0 SPEC 


00000E33 R 


01 


TYPE CHAR 


00001027 R 


01 




SLveri ' 


= 00004133 




U8E PRES 


= 00000040 






slvect 


= 00004 12E 




UBS BUSY 


= 00000040 






SPACE 


OOOOOODB RG 


01 


UBS DC LO 


= 00000020 






SPACE A 


= 00000020 




UBS INTT 


= 00000010 






SPACE'R 


00001021 R 


01 


UPCT4 


= 00000084 






SPBUFT 


= 00004086 




UPC14A 


= 00000000 






SPECIAL C OFF 


= 0000007F 




UPC COMPARE 


OOOOOOCA R 


01 




SPECIAL'S"D£F 


= 00000080 




UPC"SHIFT 


0OOOOOC1 R 


01 




startinS Dpc 


00000407 R 


01 


upCsub 


000000C6 R 


01 




start CPD 


000010FF R 


01 


UPC VALUE 


0OOO0OC2 RG 


01 




start^cpu com 


00001123 R 


01 


VERIFY SEO 


00001 8A1 R 


01 




start-up " 


00001 C02 R 


or 


VERIFY WRITER 


00001B16 R 


01 




STATU5 


= 00000040 




VERSIOR 


0000044F R 


01 
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(1) 


VERSION 1 


00000^,31 R 


01 


WRITE DATA 32 


OOOOOOFF RG 


01 




VNORML " 


= OO00OOA5 




WRJTE"DATA 32 R 


00001 1D2 R 


01 




VSHIFT 


= OOOOOOA? 




WRJTE"LS 


00000105 RG 


01 




WARM RESTART 


OO00OAB3 R 


01 


WRITE LS R 


00001146 R 


01 




WARN"MESA 


0000059A R 


01 


WRITE"LS"STAT 


00001 2DF R 


01 




WARN"MESB 


000005C8 R 


01 


WRITE"TAB 


00000921 R 


01 




warn"mess 


OOOOOABA R 


01 


WR]TE"TAB PNT 


0000006F R6 


01 




WCSBO 


= 00000008 




write"wcs" 


OOOOOOEA RG 


01 




wcsbi 


= 00000009 




WRITE WCS R 


0OOOOE8A R 


01 




WCSB2 


= OOOOOOOA 




WRONG"LAB 


= 00000020 






WCSERR 


= 00000001 




XD adUrs 


00000071 RG 


01 




WCS A 


00000585 R 


01 


xfFr 


= 00000020 






wcs"address 
wcs'addr dat 


0000006C RG 
= OOOOOOA^ 


01 


XFER CNT 
XFER'DEST 


00000580 R 
0000058F R 


01 
01 




wcs'BAD Parity 


0000006E R6 


01 


XFER"MM 


00000592 R 


01 




wcs"calC 


0000058A R 


01 


XFER"PNT 


00000593 R 


01 




WCS'CL FIFO 


= 00000062 




X CLR CPU ATT 


0000066A R 


01 




WCS"DAT 32 ADO 


= 00000600 




X"CLR"PAGE 


00000070 RG 


01 




wcs"de PbuP 


= 00000061 




X"CLR"WR0 


OOOOOOAl RG 


01 




wcs"de"icsr 


= 0000005F 




X"C0M"WR0 


0O00OOA5 RG 


01 




WCS^DE'IDAR 

WCS~DE"MCT 


= 00000060 
= 00000050 




X"M0V"WRWR 
X'REAB LS 


0000009E RG 
00000663 R 


01 
01 




wcs-de'mm 


= 00000054 




X ROT C 


00000079 RG 


01 




wcs"de"tb 


= 00000052 




X"ScT"PAGE 


00000081 RG 


01 




WCS"OE"UBS 


= 00000058 




X"SHirT L 


00000075 RG 


01 




wcs"erRor 


OO00U42 R 


01 


X"SHJFT R 


00000085 RG 


01 




WCS'ERR NUM 


= 00G000A1 




X'WRITE^LS 


0000066E R 


01 




wcs""exp~dat 


= OOO0OOA2 




y" 


= 00000055 






wcs"ex 5buf 


= 0000005C 




Y8USRD 


= OOOOOOEC 






wcs"ex"icsr 


= 0000005A 




ZERO BYTE 


00000595 R 


01 




wcs"ex"idar 


= 00000058 




ZEROlWORD 


00000596 R 


01 




WCS"EX"MCT 


= 00000051 












WCS"EX"M« 


= 00000055 












WCS"EX"PATT 


= 0000005D 












Wrs"EX"POSlT 


= 0000005E 












WCS"tX"TB 


^ 00000053 












WCS"EX UBS 


= 00000059 












wcs'fiCe name 


= 00000607 












ucs"loadFd 


00000588 R 


01 










ucs'load add 


= 00000000 












WCS"MOD t5AT 


= 00000046 












UfCS"MSK'DAT 


= 00000045 












wcs'pnt" 


0000058C R 


01 










wcs"read 


00000126 RG 


01 










wcs"read r 


00001 F 80 R 


01 










WCS"REC DAT 


= 00000043 












WCS"REST WR 


= 00000057 












WCS'SAVE WR 


- 00000056 












WCS"SEL riFOA 


= 00000063 












wcs"sel"fifob 


= 00000064 












wrs"SHirT 


00000068 RG 


01 










W(S"VALUE 


00000084 RG 


01 










UltS^VAL SHIFT 


O000O0B3 RG 


01 










WCS"VER"ADn 


= 00000606 












WCS"WRlT£ 


00000129 RG 


01 










UICS"WRITE R 


00001 F86 R 


01 
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= OOOOOOfC 
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PSECT No. Attribi 

00 ( 0.) NOPIC 

01 ( 1.) NOPIC 
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! Performance indicators 

CPU Time Elapsed Time 

00:00:00.50 00:00:03.94 
00:00:00.50 00:00:03-67 
00:01:01.88 00:06:38.08 
00:00:01.35 00:00:04.92 
00:00:25.50 00:01:47.52 
00:00:00.60 00:00:03.89 
00:00:00.01 00:00:00.07 
00:00:00.00 00:00:00.00 
00:01:30.34 00:08:42.09 
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LCL NOSHR NOEXE NORO NOWRT NOVEC BYTE 
LCL NOSHR EXE RD WRT NOVEC BYTE 



Initialisation 

Command processing 

Pass 1 

Symbol, table sort 

Pass 2 

Symbol table output 

Psect synopsis output 

Cross-reference output 

Assembler run totals 

The working set limit was 500 pages. 

620993 bytes (121^ pages) of virtual memory were used to buffer the intermediate code. 

There were 40 pages of symbol table space allocated to hold 658 non-local and 219 local symbols. 

7627 source lines were read in Pass 1, producing 65 object records in Pass 2. 

151 pages of virtual memory were used to define 150 macros. 

+ -_«-« + 

I Macro library statistics \ 

+ + 



Macros defined 




Macro i ibro*"/ name 

SYS$SVSRO0T:rSYSlIB]SrARLET,MLB;1 

GETS were required to define macros, 

There were no errors, warnings or information messages, 

MACRO/SHOW=(BIN)/UST=ENKA8.LIS/08JECT=ENKA8.08J 8085MAC ,MAR+MACOEf .MAC+ENKAB.MAC 



u. 
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